(*______________________________________________

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

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

program EJE12021;

uses Crt;

var Nota : Real;

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

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