(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo 11.49: 'Error de logica'

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

program EJE11491;

uses Crt;

var Base, Altura : Real;

begin
   ClrScr;

   Base := 6.3;
   Altura := 4;

   Write( 'El area es: ', Base * Altura / 3:0:1 )
end.