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.