В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a<b+c; b<a+c; c<a+b) и вычисляется площадь треугольника. Ввести данные двух треугольников и вывести результаты. 

Program n1;var a,b,c: real;procedure tr(a,b,c: real );var p,S: real;beginif (a<b+c) and (b<a+c) and (c<a+b) thenbeginp:=0.5*(a+b+c);S:=sqrt(p*(p-a)*(p-b)*(p-c));write('S=',S:6:3);end else write('это не треугольник'); end;beginreadln(a,b,c);tr(a,b,c); end.// тестирование:ввод: 3 4 5вывод: S=6.000ввод: 2 3 4вывод: S=2.905