Розв’язок задачі з Абрамова №686

Всі умови | Умова: Побудувати квадратну матрицю порядку 2n ... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №686)

program Pr686;
const
  len = 2;

type
  TMatrix = array[1..2*len, 1..2*len] of integer;

var
  m : TMatrix;
  i, j : integer;

begin
  for i := 1 to len do
    for j := 1 to len do
      m[i,j] := 1;

  for i := len + 1 to 2*len do
    for j := 1 to len do
      m[i,j] := 2;

  for i := 1 to len do
    for j := len + 1 to 2*len do
      m[i,j] := 3;

  for i := len + 1 to 2*len do
    for j := len + 1 to 2*len do
      m[i,j] := 4;

  for j := 1 to 2*len do
  begin
    for i := 1 to 2*len do
      write(m[i, j], ' ');
    writeln('');
  end;

  readln;
end.