Пожалуйста посчитайте с написанием программ! Вывести 5 целых чисе из экран. (написать преграмму решения с помошью трёз видов шикла на Рacal)

-------------------------------

program z2;

var i : integer;

begin

i:=0;

while i<5 do

begin

i:=i+1;

writeln(i);

end;

end.

----------------------------------------------

program z3;

var i : integer;

begin

i:=0;

repeat

i:=i+1;

writeln(i);

until i>=5;

end.