Program to find circumference of circle using SUB

Program to find circumference of circle using 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