{* Задача 13 *}

Unit MATRIX13;
Interface
Implementation
Begin
 writeln('Дана квадратная матрица A, найти A в кубе...матрица 5 на 5 ');
End.

Program matrix;

Uses matrix13.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  A : Array [1..5, 1..5] Of integer;
  i : integer;
  j : integer;
Procedure OutputMas;
Begin
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    For j := 1 To 5 Do {* Цикл для j => [1 .. 5] *}
      write(a[i, j] : 5);
    writeln; {* Вывод пустой строки *}
    writeln; {* Пустая строка *}
  End;
  
End;
Procedure Kub;
Begin
  For i := 1 To 5 Do {* Переменная i увеличивается с 1 до 5 *}
    For j := 1 To 5 Do {* Цикл для j => [1 .. 5] *}
      a[i, j] := a[i, j] * a[i, j] * a[i, j];
End;
Begin
  ClrScr; {* Очищаем экран *}
  Randomize;
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
    For j := 1 To 5 Do {* Увеличиваем j от 1 до 5 с шагом 1 *}
      a[i, j] := random(5) + 1;
  OutputMas;
  Kub;
  writeln; {* Пропускаем одну строку *}
  writeln; {* Вывод пустой строки *}
  OutputMas;
  Readkey; {* Ждем нажатия любой клавиши *}
End.