Qbasic to find area of triangle

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