PROGRAMA PARA RESOLVER UN CILINDRO

store 0 to r,h
store 3.1416 to pi
clear
@10,10 say” introduce el radio" get r
read
@11,10 say"introducir la altura" get h
read
v=pi*r*r*h
@14,10 say "V="
@14,13 say v
@14,30say "u.cubicas"
wait