Начнем с того, что S прямоугольного треугольника - это половина произведения катетов. Значит:
var
a,b:integer;
S:real; //тип реал на случай если на 2 не разделится нацело
begin
read(a,b); //спрашиваем у пользователя длины катетов
S = (a*b) /2;
Println('Площадь:');
print(S);
end.