{* Задача 375 *}

Unit ZADACH375;
Interface
Implementation
Begin
 writeln('Вычислить элементы матрицы С, являющейся суммой нижней треугольной матрцей пятого порядка и верхней треугольной матрицей того же порядка.');
End.

Program zadach375;

Uses zadach375.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Константы *}
  n = 5; {размерность матриц}
Var {* В работе нам потребуются переменные: *}
  f     : text;
  out   : text;
  i     : integer;
  j     : integer;
  Matr  : Array[1..n, 1..n] Of integer;
  Matr2 : Array[1..n, 1..n] Of integer;
  C     : Array[1..n, 1..n] Of integer; {Описание матриц}
Begin
  assign(f, 'init7.txt'); {Свяэывание матрицы и исходного файла}
  reset(f); {* Открытие файла для чтения *}
  assign(out, 'rez7.txt'); {Свяэывание матрицы и выходного файла}
  rewrite(out); {* Запись в файл через переменную out *}
  For i := 1 To n Do {считывание 1-ого массива из файла}
  Begin
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
      read(f, Matr[i, j]);
  End;
  For i := 1 To n Do {считывание 2-ого массива из файла}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
      read(f, Matr2[i, j]);
  End;
  For i := 1 To n Do {Расчет суммы матриц}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
      C[i, j] := Matr[i, j] + Matr2[i, j];
  For i := 1 To n Do {Запись в файл результата}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      write(out, c[i, j] : 4);
    End;
    writeln(out);
  End;
  close(f); {* Файл f будет закрыт *}
  close(out); {* Закрытие файла *}
End.