type mas=array[-10000..10000000] of integer; var n,a,b,c:integer; m:mas; j,t,l,i:integer; begin assign(input,'task3.in'); reset(input); assign(output,'task3.out'); rewrite(output); readln(n); for a:=1 to n do for b:=1 to n do for c:=1 to n do begin t:=a+b+c; m[t]:=m[t]+1; t:=a+b-c; m[t]:=m[t]+1; t:=a+b*c; m[t]:=m[t]+1; t:=a-b+c; m[t]:=m[t]+1; t:=a-b-c; m[t]:=m[t]+1; t:=a-b*c; m[t]:=m[t]+1; t:=a*b+c; m[t]:=m[t]+1; t:=a*b-c; m[t]:=m[t]+1; t:=a*b*c; m[t]:=m[t]+1; end; if n=1 then writeln('-1 0 0 1 1 1 2 2 3') else begin for i:=1-n*n to n*n*n-1 do for j:=1 to m[i] do write(i,' '); writeln(n*n*n); end; close(input); close(output); end.