Сформировать матрицу по образцу - Pascal (80530)

Сформировать матрицу: 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4

Листинг программы

for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=j;
    write(a[i,j]:3);
   end;
  writeln;
 end;

Объяснение кода листинга программы

Создается цикл с переменной i от 1 до m.
Внутри первого цикла создается второй цикл с переменной j от 1 до n.
В каждой итерации внутреннего цикла значение элемента массива a с индексами i и j устанавливается равным j.
Значение элемента массива a с индексами i и j выводится на экран с шириной поля 3 символа.
После завершения внутреннего цикла происходит переход на новую строку.
Код продолжает итерации внешнего цикла, пока переменная i не достигнет значения m.