Если не перепутал с формулой, то вот
var a,b:integer;
s:real;
begin
read(a,b);
s:=a*b/2;
writeln(<Для значений катетов ,a, и ,b, площадь прямоугольного треугольника равна ,s,>);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.