como calcular el volumen de un cilindro

store 1 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