Ответ: uses crt;varb,h,S:real;beginwriteln(‘Поиск площади  треугольника по стороне и высоте’);writeln(); write(‘Введите длину стороны в основании треугольника — ‘);   readln(b);    writeln();    write(‘Введи высоту треугольника — ‘);     readln(h);     writeln();      S:=(b*h)/2;       writeln(‘Ответ: ‘,S);end.