(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (RM) 13.3.1: Numeros del 1 al 10
                        (Bucle mientras)

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

program EJE13031;

uses Crt;

var Contador : Integer;

begin
   ClrScr;
   GotoXY( 4, 2 );

   Contador := 1;   { Inicializacion del contador }
   while ( Contador <= 10 ) do     { Condicion }
      begin
         Write( Contador, ' ' );   { Salida }
         Contador := Contador + 1  { Incremento del contador }
      end
end.