Repita until, hasta x numero

program logicander;


Uses WinCrt;
Var
    n : integer;
Begin


n:=1
WriteLn ( 'Hasta donde se repetira' );
ReadLn (x);
repeat
WriteLn (n);
n:= n+1:
until n<=x;


end.