Area of circle (sub)

DECLARE SUB AREA
CLS
INPUT " ENTER RADIUS";R
CALL AREA
END

SUB AREA (R)
A=22/7*R^2
PRINT "AREA OF CIRCLE";A
END SUB