Цикл с параметром:
uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 10 do
write(i*2,' ');
readkey;
end.
Цикл с предусловием:
uses crt;
var
i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
write(i*2,' ');
i:=i+1;
end;
readkey;
end.
Цикл с постусловием:
uses crt;
var
i:integer;
begin
clrscr;
i:=1;
repeat
write(2,' * ',i,' = ',2*i);
writeln;
i:=i+1;
until
i>10;
readkey;
end.
