(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo 11.41.1: 'Uso de ReadLn'

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

program EJE11411;

uses Crt;

const PI = 3.141592;

var Area, Radio : Real;

begin
   ClrScr;

   Write( 'Introduzca radio: ' );
   ReadLn( Radio );
   Area := PI * Radio * Radio;
   Write( 'El area de la circunferencia es: ', Area )
end.