main=do n<-readLn;mapM putStrLn[[shows(x-n)("  "++['1'..])!!max(n-x-y)1|x<-l]|l<-[map abs[1-n..n-1]],y<-l]