Repita until basico 1 al 10

Program Repita_until2;
Uses WinCrt;
Var n:integer;
Begin
n:=1;
REPEAT
Writeln (n);
n:=n+1;
UNTIL n=11;
End.