Написать программу на языке Паскаль
Дано: а,b,с
Найти:S
S=SQRT(p(p-a)(p-b)(p-c))
где р=(а+b+c)/2

var a,b,c,s:real;procedure Pl(var a,b,c,s:real);var p:real;begin;p:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln(s);end;begin;readln(a);readln(b);readln(c);if (a>=(b+c)) or (b>=(a+c)) or (c>=(a+b)) thenbegin;writeln('error');exit;end;Pl(a,b,c,s);end.