(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo 11.43.1: 'Uso de comentarios'

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

(***************************************************)
(* Programa: Area_de_una_circunferencia            *)
(*                                                 *)
(* Descripcion: Recibe por teclado el radio de una *)
(* circunferencia, mostrando su area por pantalla. *)
(*                                                 *)
(* Autor: Carlos Pes                               *)
(*                                                 *)
(* Fecha: 31/03/2005                               *)
(***************************************************)

program EJE11431;

{ Unidades del programa }

uses Crt;

{ Constantes del programa }

const PI = 3.141592;

{ Variables del programa }

var Area, Radio : Real;

begin
   ClrScr;   { Borrado de pantalla }

   Write( 'Introduzca radio: ' );

   ReadLn( Radio );   { Entrada de dato }

   { Calculo del area de la circunferencia }

   Area := PI * Radio * Radio;

   { Salida por pantalla del resultado }

   Write( 'El area de la circunferencia es: ', Area )
end.