(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (RM) 13.9.1: Calificacion segun nota

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

program EJE13091;

uses Crt;

var Nota : Real;

begin
   ClrScr;
   WriteLn;
   Write( '   Introduzca nota (real): ' );
   ReadLn( Nota );

   { Si la primera nota introducida por el usuario es correcta,
     el bucle no itera ninguna vez. }

   while ( Nota < 0 ) or ( Nota > 10 ) do
      begin
         WriteLn;
         WriteLn( '   ERROR: Nota incorrecta, debe ser >= 0 y <= 10' );
         WriteLn;
         Write( '   Introduzca nota (real): ' );
         ReadLn( Nota )
      end;

   { Mientras que el usuario introduzca una nota incorrecta,
     el bucle iterara. Y cuando introduzca una nota correcta,
     el bucle finalizara }

   WriteLn;
   if ( Nota >= 5 ) then
      Write( '   APROBADO' )
   else
      Write( '   SUSPENDIDO' )
end.