AREA OF TRIANGLE

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)

AREA=1/2*B*H

END FUNCTION