Составить программу вычисления площади треугольника по любой из трех формул. s=a*h/2; s=1/2*a*b*sin c; s=sqr(p(p-a)*(p-b)*(p-c));

Var a,h,r:integer;{Предположим что a,r и h целые значения(если нет то вместо integer надо real) }

begin

read(a,h);{Узнаём основание и высоту}

r:=(a*h)/2;{Производим расчеты, где r площадь треугольника}

writeln(r);{Выводим на экран площадь треугольника}

end.