QBASIC to find Circumference of Circle using SUB

DECLARE SUB CIR ( R )
CLS
INPUT "Enter radius"; R
CALL CIR ( R )
END

SUB CIR ( R )
C =  2 * 22 / 7 * R
PRINT "Circumference of circle = "; C
END SUB