WAP to find the area of traingle

CLS 
INPUT"Enter height";H
INPUT"Enter breadth";B
A=1/2*B*H
PRINT"Area of traingle";A
END