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

program z1;

var i : integer;

begin

for i:= 1 to 5 do

writeln(i);

end.

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.