Qbasic to find Area of triangle using Function

DECLARE FUNCTION Area ( B, H)
CLS
INPUT "Enter base"; B
INPUT "Enter height"; H
PRINT "Area of triangle"; Area ( B, H )
END

FUNCTION Area ( B, H )
Area = 1 / 2 * B * H
END FUNCTION