IPARA PASCAL

var x:array [0..100]  of longint;
    n,dem,s:longint;


procedure xuat(n:longint);
var i:longint;
begin
        for i:=1 to n do
                write(x[i],' ');
        writeln;
end;

procedure vet(i:longint);
var j:longint;
begin
    for j:=x[i-1] to n do
    begin
        s:=s+j;
        x[i]:=j;
        if s>=n then
        begin
            if s=n then
            begin
                inc(dem);
                xuat(i);
            end;
        end
        else vet(i+1);
        s:=s-j;
    end;
end;

begin
    assign(input,'ipara.inp');reset(input);
    assign(output,'ipara.out');rewrite(output);
    readln(n);
    x[0]:=1;
    vet(1);
    writeln(dem);
end.