var n,m,i,j,k,l:int64;
    th:byte;
begin
     write('Nhap n: ');readln(n);
     i:=1;
     th:=0;
     while i<=(n div 2) do
     begin
         m:=i;
         j:=i;
         k:=0;
         while m<n do
         begin
             inc(k);
             inc(j);
             m:=m+j;
         end;
         if m=n then
         begin
              inc(th);
              writeln('Truong hop ',th);
              write(i,' ');
              l:=1;
              while l<=k do
              begin
                   write(i+l,' ');
                   inc(l);
              end;
              writeln;
         end;
         inc(i);
     end;
     readln;
end.