{* Формирование матрицы 2 *}

Unit FORMER;
Interface
Implementation
Begin
 writeln('Сформировать матрицу

1 1 1 1
2 2 2 2
3 3 3 3 ');
End.

Program former;

Uses former.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..3, 1..4] Of integer;
  i : integer;
  j : integer;
Begin
  For i := 1 To 3 Do {* Цикл для i => [1 .. 3] *}
  Begin
    For j := 1 To 4 Do {* Увеличиваем j от 1 до 4 с шагом 1 *}
    Begin
      a[i, j] := i;
      write(a[i, j]);
    End;
    writln;
  End;
  
End.