{* Задача 457 *}

Unit ZADACH457;
Interface
Implementation
Begin
 writeln('Дан двумерный массив а, размером (n x m) и одномерный массив x(m). Последние 2 строки матрицы заменить массивами х. ');
End.

Program zadach457;

Uses zadach457.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  n = 4;
  m = 5;
Var {* В работе нам потребуются переменные: *}
  a : Array [1..n, 1..m] Of integer;
  x : Array [1..m] Of integer;
  i : integer;
  j : integer;
Begin
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    For j := 1 To m Do {* Цикл для j => [1 .. m] *}
      a[i, j] := random(20) - 5;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    For j := 1 To m Do {* Цикл для j => [1 .. m] *}
      write (a[i, j] : 4);
    writeln; {* Вывод пустой строки *}
  End;
  For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
    read (x[j]);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
    Begin
      a[n, j] := x[j];
      a[n - 1, j] := x[j];
    End;
    
  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] : 4);
    writeln; {* Пропускаем одну строку *}
  End;
  
End.