Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т.е. имеют равные площади — Pascal(Паскаль)

uses crt;

var
  p, S1, S2: real;
  a, b: array [1 .. 3] of real;
  i: integer;

begin
  clrscr;
  writeln('Vvedite storony treugolnikov a i b:');
  for i := 1 to 3 do
  begin
    write('a', i, '= ');
    readln(a[i]);
  end;
  for i := 1 to 3 do
  begin
    write('b', i, '= ');
    readln(b[i]);
  end;
  { ----- }
  p := (a[1] + a[2] + a[3]) / 2;
  S1 := sqrt(p * (p - a[1]) * (p - a[2]) * (p - a[3]));
  p := (b[1] + b[2] + b[3]) / 2;
  S2 := sqrt(p * (p - b[1]) * (p - b[2]) * (p - b[3]));
  if S1 = S2 then
    writeln('S1 = S2!')
  else
    writeln('S1 ne raven S2');
  readln;

end.