DECLARE FUNCTION VOL ( R , H )
CLS
INPUT " Enter radius "; R
INPUT " Enter height";  H
PRINT "Volume of cylinder ="; VOL (R, H )
END

FUNCTION VOL( R, H)
V = 22 / 7 * R ^ 2 * H
VOL = V
END FUNCTION