(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo 12.3: Calificacion segun nota
                (Version 2)

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

program EJE12031;

uses Crt;

var Nota : Real;

begin
   ClrScr;
   GotoXY( 4, 2 );
   Write( 'Introduzca nota (real): ' );
   Read( Nota );

   if ( Nota >= 5 ) then
      begin
         GotoXY( 4, 4 );
         Write( 'APROBADO' )
      end
end.