WAP to find the area of triangle

CLS

INPUT "Enter base";B

INPUT "Enter height";H

A = 1 / 2 *B*H

PRINT " Area of rectangle ";A

END