program cykl1;
var
   i : integer;
begin
     i := 0;
     repeat              {opakuj}
         i := i + 1;     {zvetsi i o 1}
         writeln(i);     {napis i}
     until i = 10;       {dokud nenastane i = 10}
     readln;
end.