program cykl2;
var
i : integer;
begin
i := 0;
while i < 10 do begin {dokud plati i < 10 delej zacatek}
i := i + 1; { telo }
writeln(i); { cyklu }
end; {konec}
readln;
end.