program cristina;

var n:integer; {ordinul matricei}
	matrice:array[1..1000,1..1000] of integer;
	i, k, p, j:integer;

begin

    write('Ordinul matrice:');
	readln(n);

	k := 0;
	p := 1;
	i := 1;
	j := 1;

	for i := 1 to n  do
		for j := 1 to n do
			matrice[i,j] := 0;

	while p <= n do
	begin
		for i := n downto p do
		begin
			k := k + 1;
		  	matrice[i,p] := k;
		end;
		for i := p + 1 to n do
		begin
			k := k + 1;
			matrice[p,i] := k;
		end;

	  	p := p + 1;

		for i := n downto p do
		begin
			k := k + 1;
			matrice[p,i] := k;
		end;
		for i := p + 1 to n do
		begin
			k := k + 1;
			matrice[i,p] :=  k;
		end;

		p := p + 1;
	end;

	for i := 1 to n do
	begin
		for j := 1 to n do
			write(matrice[i,j], ' ');
		writeln();
	end;


end.