Помогите пожалуйста! Паскаль
Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false— в противном случае.
Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т. е. имеют равные площади.

  • function st(a, b, c: real): real;
    var
    p: real;
    begin
    p := (a + b + c) / 2;
    st := sqrt(p * (p - a) * (p - b) * (p - c));
    end;

    var
    a1, b1, c1, a2, b2, c2: real;
    begin
    write('стороны первого треугольника? ');
    read(a1, b1, c1);
    write('стороны второго треугольника? ');
    read(a2, b2, c2);
    writeln(st(a1, b1, c1) = st(a2, b2, c2));
    end.

  • формулу напиши на листке, а потом пишешь програм наме, вар, и т. д. подумай с формулой, это же математика))