Program Ex12;
Var
raioBase,altura,volume : Real;
Begin
ClrScr;
Write(‘Digite o valor do raio da base:’);
ReadLn(raioBase);
Write(‘Digite o valor da altura do cone:’);
ReadLn(altura);
volume:=1/3*PI*Sqr(raioBase)*altura;
WriteLn(‘O volume desse cone e: ‘,volume:3:1);
ReadKey;
End.