Матрица. Как записать матрицу, составленную из трёх единичных матриц?

[NamYola]

Матрица. Как записать матрицу, составленную из трёх единичных матриц?

Здравие,всем)

Сформулировать матрицу размером Nx3N, составленную из трех единичных квадратных матриц размером NxN.

Вот,единичную матрицу вывел,а дальше не могу записать её в матрицу n*3n.Помогите пжлуста


const
n=3;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if i=j then a[i,j]:=1
else a[i,j]:=0;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln;
end.

 

[Vladimir_S]

Помогите пжлуста

Пжлуста:

const
 n=5;
var
 a:array[1..n,1..n] of integer;
 b:array[1..n,1..n*3] of integer;
 i,j,k:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   if i=j then a[i,j]:=1
   else a[i,j]:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:3);
   writeln;
  end;
 writeln;
 for i:=1 to n do
  for j:=1 to n do
   for k:=0 to 2 do
    b[i,j+k*n]:=a[i,j];
 for i:=1 to n do
  begin
   for j:=1 to n*3 do
    write(b[i,j]:3);
   writeln;
  end;
 readln;
end.

 

[NamYola]

Спасиб,большое)выручили)