Circumference of a circle using sub.

Circumference of a circle using sub procedure.

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";C

END SUB