Pętle

uses Crt;
var a,b,c : LongInt;
begin
a:=0;
while a < 10 do
begin
a := a + 1;
Write(' ', a);
end;
Writeln('');
b := 0;
repeat b := b + 1;
Write(' ', b);
until b = 10;
Writeln('');

for c:=1 to 10 do
Write(' ', c);
readln;
end.