Program to find Area of Triangle in QBASIC
CLS
INPUT "Area of Triangle"; b, h
a = 1 / 2 * b * h
PRINT "Area ="; a
END