через for
var i,x: integer;
begin
x : = 1;
for i : = 1 to 5 do
write(i);
end;
writeln;
или так через while
while x< 5 do
write(x);
p.s. paskalhren'
через for
var i,x: integer;
begin
x : = 1;
for i : = 1 to 5 do
begin
write(i);
end;
writeln;
или так через while
var i,x: integer;
begin
x :
= 1;
while x< 5 do
begin
write(x);
end;
writeln;
p.s. paskalhren'