Вычислить площадь треугольника по его основанию и высоте, составив программу и бл

vara,h,s: integer;beginwriteln('введите основание ');readln(a);writeln('введите высоту треугольника') ;readln(h);S:=(1/2)*(a*h);writeln('площадь равна ',s);end.