#18 TO FIND CIRCUMFERENCE OF CIRCLE

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

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