{* Задача 458 *}

Unit ZADACH458;
Interface
Implementation
Begin
 writeln('');
End.

Program pr2;

Uses zadach458.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  n = 4;
  m1 = 3;
  m2 = 3;
Var {* Необходимые переменные *}
  x : Array [1..n, 1..m1] Of integer;
  y : Array [1..n, 1..m2] Of integer;
  z : Array [1..n, 1..m1 + m2 + 2] Of integer;
  i : integer;
  j : integer;
Begin
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := 1 To m1 Do {* Переменная j увеличивается с 1 до m1 *}
      x[i, j] := random(20) - 5;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To m1 Do {* Переменная j увеличивается с 1 до m1 *}
      write (x[i, j] : 4);
    writeln; {* Пропускаем одну строку *}
  End;
  writeln; {* Пустая строка *}
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    For j := 1 To m2 Do {* Увеличиваем j от 1 до m2 с шагом 1 *}
      y[i, j] := random(10) - 3;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To m2 Do {* Увеличиваем j от 1 до m2 с шагом 1 *}
      write (y[i, j] : 4);
    writeln; {* Пустая строка *}
  End;
  writeln; {* Вывод пустой строки *}
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To m1 Do {* Увеличиваем j от 1 до m1 с шагом 1 *}
      z[i, j] := x[i, j];
    For j := 1 To 2 Do {* Переменная j увеличивается с 1 до 2 *}
      z[i, j + 3] := 0;
    For j := 1 To m2 Do {* Увеличиваем j от 1 до m2 с шагом 1 *}
      z[i, j + 5] := y[i, j];
  End;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To m1 + m2 + 2 Do {* Цикл для j => [1 .. m1] *}
      write (z[i, j] : 4);
    writeln; {* Пустая строка *}
  End;
  
End.