Ejemplos While.

Ejemplo. 
Escribir los N primeros números naturales, donde N es un valor 
introducido por el usuario.

     Program escribeenteros;
     Var
           N,contador: integer;
     Begin
           Write ('Introduzca numero maximo de enteros: ');
           Readln (N);
           Contador:=1;
           While contador<=N do
                         Begin
                          Write (contador:5);
                          Contador:=contador+1;
                         End;
           Writeln;
           Writeln ('Fin de programa. Contador = ',contador);
     End.

Escribir un programa en Pascal que realice un bucle con While y muestre
en pantalla del 1 al 10.

PROGRAM EJER42; 
        USES CRT;
        VAR x:INTEGER;
BEGIN
     x:=0;

     ClrScr;

     WHILE X <= 10 DO
     BEGIN
          WRITELN (x);
          x:=x+1;

     END;
END.