program aaa; var j,a,i,n,m:integer; k:array[1..1000] of integer; begin a:=0; readln(n); j:=1; while (n=1) do begin for i:=1 to n do begin a:=a+i; write(a,' '); end; a:=a+1; j:=j+1; k[j]:=a; n:=n-1; end; write(k[j],' '); end.