Помогите решить(срочно). Цикл с постусловием Pascal ABC

[Ko[A]lla]

Задано натуральное число n. Вычислить сумму цифр числа.

program zadacha3_4; 
 var n,sum,cif:integer; 
Begin 
 writeln('Введите n'); readln(n); 
 sum:=0; 
 while n>0 do 
 begin 
cif:=n mod 10; 
sum:=sum+cif; 
n:=n div 10; 
 end; 
 writeln('Сумма цифр введённого числа = ',sum); 
End.

переделайте эту программу на цикл с постусловием


Найти минимальное натуральное число, которое при делении на 2 даёт в остатке 1, при
делении на 3 даёт в остатке 2, при делении на 4 - в остатке 3, при делении на 5 - в
остатке 4, при делении на 6 - в остатке 5 а при делении на 7 дают в остатке 6.

 
program zadacha3_5; 
 var i, kl:longint; 
Begin 
 kl:=0; i:=0; 
 while kl=0 do 
 begin 
i:=i+1; 
if (i mod 2=1) and (i mod 3=2) and (i mod 4=3) and (i mod 5=4) and (i mod 6=5) and (i 
mod 7=6) then kl:=1; 
 end; 
 writeln(i); 
End.

переделайте эту программу на цикл с постусловием

[Mad_Cat]

while n>0 do 
begin 
cif:=n mod 10; 
sum:=sum+cif; 
n:=n div 10; 
end;

заменить на

repeat
cif:=n mod 10; 
sum:=sum+cif; 
n:=n div 10; 
until n=0;

а это

while kl=0 do 
begin 
i:=i+1; 
if (i mod 2=1) and (i mod 3=2) and (i mod 4=3) and (i mod 5=4) and (i mod 6=5) and (i 
mod 7=6) then kl:=1; 
end;

на

repeat
i:=i+1; 
if (i mod 2=1) and (i mod 3=2) and (i mod 4=3) and (i mod 5=4) and (i mod 6=5) and (i 
mod 7=6) then kl:=1; 
until kl=1;