WAP to print circumference of circle

Qbasic program to print circumference of circle

 CLS
 INPUT “ENTER RADIUS”; R
 C = 2 * 3.14 * R
 PRINT “CIRCUMFERENCE OF CIRCLE ”; A
 END

USING SUB

DECLARE SUB CIRCUMFERENCE(R)
 CLS
 INPUT “ENTER RADIUS”; R
 CALL CIRCUMFERENCE(R)
 END
 
 SUB CIRCUMFERENCE(R)
 C = 2 * 3.14 * R
 PRINT “CIRCUMFERENCE OF CIRCLE ”; A
 END SUB