var a,b,c,d,e,f:byte;
     s1,s2,s_otn:real;
procedure geron(a,b,c:byte;var s1:real);
  var p:real;
  begin
    p:=(a+b+c)/2;
    s1:=sqrt(p*(p-a)*(p-b)*(p-c));
  end;
begin
 write('Введите a b c '); readln(a,b,c);
 write('Введите d e f '); readln(d,e,f);
 geron(a,b,c,s1);
 geron(d,e,f,s2);
 s_otn:=s1/s2;
 writeln('Площадь 1 треугольника ',s1:5:2);
 writeln('Площадь 2 треугольника ',s2:5:2);
 writeln('Отношение площадей ',s_otn:5:2);
 readln;
end.