CIRCUMFERENCE OF CIRCLE(SUB)

DECLARE SUB CIR(R)
CLS
INPUT"ENTER RADIUS";R
CALL SUB CIR(R)
END

SUB CIR(R)
CIRC=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE IS ";CIRC
END SUB