QBasic program to find area of circle. SUB

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