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

function S_tr(a,b:integer):real;beginS_tr:=a*b/2end;var a,b,c,d:integer;s:real;begins:=0;read(a,b,c,d);s+=S_tr(a,b);s+=S_tr(c,d);writeln(s);end.