AREA OF CIRCLE(SUB)

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

SUUB AR(R)
ARE=22/7*R^2
PRINT"Area of circle is";ARE
END SUB