Area of circle(sub)

DECLARE SUB AREA(R)
CLS 
CALL AREA(R)
END

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