{* Задача 456 *}

Unit ZADACH456;
Interface
Implementation
Begin
 writeln('Дан двумерный массив а, размером (NxM). Циклически сдвинуть на две позиции вверх все строки матрицы. ');
End.

Program zadach456;

Uses zadach456.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 4;
  m = 4;
Var {* Необходимые переменные *}
  a : Array [1..n, 1..m] Of integer;
  c : integer;
  i : integer;
  j : integer;
Begin
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
      read (a[i, j]);
  For j := 1 To m Do {* Цикл для j => [1 .. m] *}
  Begin
    c := a[1, j];
    For i := 1 To n - 2 Do {* Увеличиваем i от 1 до n с шагом 1 *}
      a[i, j] := a[i + 2, j];
    a[n - 1, j] := c;
  End;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
      write (a[i, j] : 3);
    writeln; {* Пустая строка *}
  End;
  
End.