Repita until, hasta 10

program logicander;


Uses WinCrt;
Var
    n : integer;
Begin


n:=1;
repeat
WriteLn (n);
n:= n+1;
until n<11;


end.