program phone;

{$APPTYPE CONSOLE}
var x:array[1..10] of integer;
k:integer;
function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
procedure rozbyt(pos,max,number:integer);
var i:integer;
begin
  if number = 0 then
  begin
    for i:=1 to pos-1 do write(x[i],' ');
    k:=k+1;
    writeln;
  end else
  for i:={number} min(number,max) downto {2} 1 do
  begin
    x[pos] := i;
    rozbyt(pos+1,i,number-i);
  end;
end;

begin
k:=0;
rozbyt(1,7,7);
writeln('k=',k);
readln;
end.