var a:array [1..3,1..3] of integer;
b:array [1..3,1..3] of integer;
c:array [1..3,1..3] of integer;
i,j:integer;
max1,max2,max3:real;
begin
writeln ('Введите первую матрицу ');
for i:=1 to 3 do 
for j:=1 to 3 do
readln (a[i,j]);
writeln ('Введите вторую матрицу ');
for i:=1 to 3 do 
for j:=1 to 3 do
readln (b[i,j]);
writeln ('Введите третью матрицу ');
for i:=1 to 3 do 
for j:=1 to 3 do
readln (c[i,j]);
max1:=a[1,1];
max2:=b[1,1];
max3:=c[1,1];
for i:=1 to 3 do 
for j:=1 to 3 do
if a[i,j]>max1 then max1:=a[i,j];
for i:=1 to 3 do 
for j:=1 to 3 do
if b[i,j]>max2 then max2:=b[i,j];
for i:=1 to 3 do 
for j:=1 to 3 do
if c[i,j]>max3 then max3:=c[i,j];
writeln ('Максимальные значения матриц равны ',max1,' ',max2,' ',max3);
if (max1 < max2+max3) and (max2 < max1+max3) and (max3 < max1+max2) then
        writeln ('Треугольник существует.')
    else
        writeln ('Треугольник не существует.');

End.