calculo del volumen de un cilindro

STORE 0 TO r,hS
TORE 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