QBASIC PROGRAM TO FIND TOTAL SURFACE AREA OF SPHERE

CLS
 INPUT “ENTER RADIUS ”; R
 A= 4 * 3.14 * R ^ 2
 PRINT “TOTAL SURFACE AREA OF SPHERE "; A
 END

USING SUB

DECLARE SUB TSA(R)
 CLS
 INPUT “ENTER RADIUS ”; R
 CALL TSA(R)
 END
 
 SUB TSA(R)
 A= 4 * 3.14 * R ^ 2
 PRINT “TOTAL SURFACE AREA OF SPHERE "; A
 END SUB