递归.
func d(n,t:int):long.
  i:int
  m:long
{
  if n=1 then m=1 else {
    m=0
    for i=1->t if i<=n div 2 then m+=d(n-i,i)
  }
}

var
i,n,p,an:integer;
s:array[1..100] of integer;
begin
  readln(n);
  s[1]:=1; p:=1; an:=1;
  while p>0 do
    begin
      while an<n do begin p:=p+1; s[p]:=s[p-1]; an:=an+s[p]; end;
      if an=n then
        begin
          for i:=1 to p do write(s[i],' ');
          writeln;
        end;
      an:=an-s[p]; p:=p-1;
      while (p>0)and(s[p]=n-1) do begin an:=an-s[p]; p:=p-1; end;
      if p>0 then begin an:=an+1; s[p]:=s[p]+1; end;
    end;
end.