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

var

a,h,s: integer;

begin

writeln('введите основание ');

readln(a);

writeln('введите высоту треугольника') ;

readln(h);

S:=(1/2)*(a*h);

writeln('площадь равна ',s);

end.