QBASIC PROGRAM TO CHECK IF THE TRIANGLE IS RIGHT ANGLED TRIANGLE OR NOT

CLS
 INPUT “ENTER THREE ANGLES OF A TRIANGLE”; A,B,C
 IF A = 90 OR B = 90 OR C = 90 THEN
 PRINT “IT IS A RIGHT ANGLED TRIANGLE”
 ELSE
 PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE”
 END IF
 END

USING SUB

DECLARE SUB RIGHT(A,B,C)
 CLS
 INPUT “ENTER THREE ANGLES OF A TRIANGLE”; A,B,C
 CALL RIGHT(A,B,C)
 END
 
 SUB RIGHT(A,B,C)
 IF A = 90 OR B = 90 OR C = 90 THEN
 PRINT “IT IS A RIGHT ANGLED TRIANGLE”
 ELSE
 PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE”
 END IF
 END SUB