Qbasic

Qbasic to find area of triangle

ClS
INPUT "Enter base"; b
INPUT "Enter height"; h
A = 1/2*b*h
PRINT "Area of triangle="; A
END