Uses Crt;

var a1,b1,c1,a2,b2,c2:integer;

S1,S2,p1,p2:real;

Begin

Clrscr;

Write('A1, B1, C1, A2, B2, C2 через пробел : ');

Readln(a1,b1,c1,a2,b2,c2);

P1:=(a1+b1+c1)/2; {полупериметр первого}

P2:=(a2+b2+c2)/2; {полупериметр второго}

S1:=SQRT(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого}

S2:=SQRT(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго}

If S1=S2 then write('Участки равны')

 else if s1>s2 then write('У первого участок больше')

 else Write('У второго участок больше');

readln;

end.