QBASIC PROGRAM TO FIND THE 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