(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (RP) 13.13.1: Numeros del 1 al 10
                         (Bucle para)

   Web del Autor: http://www.carlospes.com
  ______________________________________________*)

program EJE13131;

uses Crt;

var Contador : Integer;

begin
   ClrScr;
   GotoXY( 4, 2 );

   for Contador := 1 to 10 do
      begin
         Write( Contador, ' ' )
      end
end.