Var a: array [1..100] of integer;
	n, i, m, j, l, r, k: integer;
begin
	writeln ('Enter length');
	readln (n);
	writeln ('Enter values');
	for i:=1 to n do
		readln (a[i]);
	writeln ('Matrix:');
	m:= (n-4)div 3 + 2;
	i:= 1; l:=-1; r:=m-2;
	for k:=1 to m do
	begin
		j:=1;
		while j<=l do begin
			write ('0 ');
			inc (j);
		end;
		while (j<= (m-r)) and (j<=m) do begin
			write (a[i], ' ');
			inc (j);
			inc (i);
		end;
		while j<=m do begin
			write ('0 ');
			inc (j);
		end;
		inc (l); dec (r);
		writeln;
	end;
end.