Programa para calcular el volumen de 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