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;
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.