Programa para calcular el volumen de un cilindro

sore 0 to r,h
store 3.1416 to pi
clear
@10,10 say "introducir el radio" get r
read
@11,10 say"intorducir la altura"get h
read
V=p*r*r*h@14,10 say "V="
@14,13 say V
@14,30 say"unidades cubicas"
wait