Помогите решить эту задачу в паскале! Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников. (Вычисление площади оформить в виде под программы-функция или процедура).

Решение задачи в Паскале длядвух треугольников с катетами. Находим сумму их площадей.

Начало програмы:

Function S_tr (a, b:integer) : real;

begin

S_tr:=a*b/2

end;

var a, b, c, d:integer;

s:real;

begin

s:=0;

read (a, b, c, d);

s+=S_tr (a, b);

s+=S_tr (c, d);

writeln (s);

end.