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