Имеется три отрезка длиной A ,B и С Напишите функцию которая будет по длине отрезков определять Можно ли из них построить треугольник известно что треугольник может быть построен Если сумма длин двух любых отрезков больше длины третьего отрезка то есть А + B >C , A + C > , B + C > а​

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

function ReadMatrix(c:char; m,n:integer):array[,] of real;
begin
  Writeln('Вводите элементы матрицы ',c,' построчно');
  Result:=ReadMatrReal(m,n);
end;

function MatProd(a,b:array[,] of real):array[,] of real;
begin
  var (m,n):=(a.RowCount,a.ColCount);
  Result:=new real[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do
      Result[i,j]:=a[i,j]*b[i,j]
end;

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрицах:');
  var A:=ReadMatrix('A',m,n);
  var B:=ReadMatrix('B',m,n);
  var C:=ReadMatrix('C',m,n);
  var AB:=MatProd(A,B);
  Writeln('*** A*B ***');
  AB.Print(8,4); Writeln(8*n*'-');
  var AC:=MatProd(A,C);
  Writeln('*** A*C ***');
  AC.Print(8,4); Writeln(8*n*'-');
  var BC:=MatProd(B,C);
  Writeln('*** B*C ***');
  BC.Print(8,4)
end.

Пример
Количество строк и столбцов в матрицах: 3 4
Вводите элементы матрицы A построчно
2.1 3.2 -1.7 4
-2 0 6.1 0.3
0.2 1.7 -2 0.5
Вводите элементы матрицы B построчно
1 2 3 4
5 6 7 8
-1 -2 -3 -4
Вводите элементы матрицы C построчно
8.3 2.12 5.7 0
3.9 7.7 4 1
-1 -2 5.2 -0.9
*** A*B ***
  2.1000  6.4000 -5.1000 16.0000
-10.0000  0.0000 42.7000  2.4000
 -0.2000 -3.4000  6.0000 -2.0000

*** A*C ***
 17.4300  6.7840 -9.6900  0.0000
 -7.8000  0.0000 24.4000  0.3000
 -0.2000 -3.4000-10.4000 -0.4500

*** B*C ***
  8.3000  4.2400 17.1000  0.0000
 19.5000 46.2000 28.0000  8.0000
  1.0000  4.0000-15.6000  3.6000

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

function GCD(a,b:integer):integer; // НОД
begin
  while b<>0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

procedure RedFrac(var a,b:integer); // сокращение дроби
begin
  var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак!
  (a,b):=(Abs(a),Abs(b));
  var d:=Gcd(a,b);
  (a,b):=((a div d)*sgna,(b div d)*sgnb)
end;

begin
  var (a,b):=ReadInteger2('Числитель и знаменатель 1-й дроби:');
  var (c,d):=ReadInteger2('Числитель и знаменатель 2-й дроби:');
  var (p,q):=(a*d+b*c,b*d);
  RedFrac(p,q);
  Writeln('Результат: ',p,'/',q)
end.

Пример
Числитель и знаменатель 1-й дроби: -135 36
Числитель и знаменатель 2-й дроби: 31 60
Результат: -97/30