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