QBASIC PROGRAM TO FIND AREA OF TRIANGLE(SUB)

DECLARE FUNCTION AREA (B,H)
CLS
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT "AREA OF TRIANGLE";AREA(B,H)
END

FUNCTION AREA (B,H)
A=1/2 *B*H
AREA =A
END FUNCTON