|
program ARM13011;
uses Crt;
var Radio : Real;
begin
ClrScr;
Write( 'Introduzca
radio: ' );
ReadLn( Radio );
{
Filtramos el radio }
while
( radio <= 0
) do
begin
WriteLn( 'ERROR:
El radio debe ser mayor que cero.' );
Write( 'Introduzca
radio: ' );
ReadLn( Radio )
end;
Write( 'El
area de la esfera de radio ', Radio:0:2, ' es: ',
4 * 3.141592 *
Radio * Radio:0:2 );
end.
|
