Repita Hasta 1ero

program Hasta;


uses winCrt;


var Contador : Integer;


begin
   ClrScr;
   GotoXY( 4, 2 );


   Contador := 1; { Inicializacion del contador }
   repeat
      Write( Contador, ' ' );     { Salida }
      Contador := Contador + 1;   { Incremento }
   until Contador > 10;           { Condicion }
end.