program Zadacha2;
{$APPTYPE CONSOLE}
var i,j,n,k,f:integer;c:array[1..100] of string;
begin
writeln('Vvedit kilkist');
readln(n);
for k:=1 to n do begin
for f:=1 to n-k do begin
write(' ');end;
for i:=1 to k do begin write(i);end;
for j:=k-1 downto 1 do begin write(j);end;writeln;end;
readln;
end.