WAP to find the area of the triangle

CLS
INPUT "Enter base "; B
INPUT "Enter height "; H
A = 1/2 ×B×H
PRINT "
Area of Triangle =";A
END