programa para resolver un cilindro
store 0 to r,h
store 3.1416 to p1
clear
@10,10 say "introduce el radio" get r
read
@11,10 say"introduce la altura"get h
read
v=p1*r*r*h
@14,10 say"v="
@14,13 say v
@14,20 say"u. cubicas
wait