DECLARE FUNCTION AREA (L, B)
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH "; B
PRINT " AREA OF TRIANGLE = "; AREA ( L, B )
END

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