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,30 say"u.cubicas"
wait