circumference of circle(sub)

DECLARE SUB CIRCLE(R)

CLS

INPUT "ENTER RADIUS";R

CALL CIRCLE(R)

END

SUB CIRCLE (R)

C=2*22/7*R

PRINT"CIRCUMFERENCE OF CIRCLE";C

END SUB