(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo 11.48: 'Error de ejecucion'

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

program EJE11481;

uses Crt;

var
   A : Integer;
   B : Real;

begin
   ClrScr;

   A := 0;
   B := 6.4 / A;

   Write( B )
end.