c:/gdsf/web/fuentes_pascal/volumen

PROGRAM volumene;

USES CRT;
VAR radio : REAL;
VAR volumen : REAL;
BEGIN
{Este programa calcula el volumen de una esfera}
CLRSCR;
WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA EL RADIO: ');
READLN (radio);
volumen := (4 / 3) * 3.1416 * (radio * radio * radio);
WRITE ('VOLUMEN DE LA ESFERA: ');
WRITE (volumen : 5 : 2);
END.