program z1;
var i : integer;
begin
for i:= 1 to 5 do
writeln(i);
end.
program z2;
i:=0;
while i<5 do
i:=i+1;
end;
program z3;
repeat
until i>=5;
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.