WAP to print/find area of triangle when its all 3 sides are given

Qbasic program to print/find area of triangle when its all 3 sides are given

 CLS
 INPUT “ENTER VALUE FOR FIRST SIDE ”; A
 INPUT “ENTER VALUE FOR SECOND SIDE ”; B
 INPUT “ENTER VALUE FOR THIRD SIDE ”; C
 S = (A + B + C) / 2
 AR = (S * (S – A) * (S – B) * (S – C)) ^ (1 / 2)
 PRINT “AREA OF TRIANGLE “; AR
 END

USING SUB

DECLARE SUB AREA(A,B,C)
 CLS
 INPUT “ENTER VALUE FOR FIRST SIDE ”; A
 INPUT “ENTER VALUE FOR SECOND SIDE ”; B
 INPUT “ENTER VALUE FOR THIRD SIDE ”; C
 CALL AREA(A,B,C)
 END
 
 SUB AREA(A,B,C)
 S = (A + B + C) / 2
 AR = (S * (S – A) * (S – B) * (S – C)) ^ (1 / 2)
 PRINT “AREA OF TRIANGLE “; AR
 END SUB