volume esfera

algoritmo "volume esfera"

var
volume, raio: real
inicio
escreval("Informe o raio da esfera:")
leia (raio)
volume <-  (4 * pi * (raio ^3)) / 3
escreval("Volume da esfera:",volume)
fimalgoritmo