Qbasic to find Area of circle using Sub

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

SUB Area ( R )
A = 22 / 7 * R ^ 2
PRINT "Area of circle="; A
END SUB