{* Задача 67 *}

Unit ZADACH67;
Interface
Implementation
Begin
 writeln('Повернуть двумерный массив на 90 градусов по часовой стрелке');
End.

Program zadach67;

Uses zadach67.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  mas  : Array [1..5, 1..5] Of integer;
  mas2 : Array [1..5, 1..5] Of integer;
  i    : integer;
  j    : integer;
  k    : integer;
Begin
  k := 1;
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    / / заполняем массив
    For j := 1  To 5 Do {* Цикл для j => [1 .. 5] *}
    Begin
      mas[i, j] := k;
      k := k + 1;
    End;
    
  End;
  For i := 1 To 5 Do {* Цикл для i => [1 .. 5] *}
  Begin
    / / выводим первоначальный массив
    For j := 1  To 5 Do {* Переменная j увеличивается с 1 до 5 *}
      write(mas[i, j], ' ');
    writeln; {* Пропускаем одну строку *}
  End;
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    / / поворачиваем на 90 градусов по часой                          k := 6;
    For j := 1  To 5 Do {* Цикл для j => [1 .. 5] *}
    Begin
      mas2[j, k - i] := mas[i, j];
    End;
    
  End;
  writeln; {* Пустая строка *}
  For i := 1 To 5 Do {* Переменная i увеличивается с 1 до 5 *}
  Begin
    / / выводим перевёрнутый массив
    For j := 1  To 5 Do {* Увеличиваем j от 1 до 5 с шагом 1 *}
      write(mas2[i, j], ' ');
    writeln; {* Пустая строка *}
  End;
  readln; {* Ждем подтверждения пользователя *}
End.