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