QBASIC PROGRAM TO FIND CIRCUMFERENCE OF CIRCLE(SUB)

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