#3 AREA OF CIRCLE

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

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