По формуле Герона определить площади трёх треугольников и определить, какой из треугольников имеет максимальную площадь.

[лЮСИК007]

всем доброго вечера нужно очень срочно решить задачку пожайлуста помогите кто не занят!

[newerow1989]

function Geron(a,b,c:real):real;
var p:real;
begin
   p:=(a+b+c)/2;
   Result:=Sqrt(p*(p-a)*(p-b)*(p-c));
end;

var a1,a2,b1,b2,c1,c2,s1,s2:real;
begin
   Write('a1 = ');Readln(a1);
   Write('b1 = ');Readln(b1);
   Write('c1 = ');Readln(c1);
   Write('a2 = ');Readln(a2);
   Write('b2 = ');Readln(b2);
   Write('c2 = ');Readln(c2);
   s1:=Geron(a1,b1,c1);
   s2:=Geron(a2,b2,c2);
   Writeln('s1 = ',s1:7:5);
   Writeln('s2 = ',s2:7:5);
   If s1>s2 then
      Writeln('#1') else
   If s1<s2 then
      Writeln('#2') else
      Writeln('#1 = #2');
   Readln;
end.