Задача на комбинаторику

[Rad-X]

Задачка такая
Нужно написать программу, которая будет подсчитывать кол-во способов, которыми данное число можно представить в виде суммы шести чисел от 1 до 6.
К примеру
7=1+1+1+1+1+2
7=1+1+1+1+2+1
и т.д.
Получается - 7 способов.

Пробовал циклами с рандомом, проблема такая: не могу найти место где цикл остановился бы или способы не повторялись.

Может кто знает комбинаторику и знает какую-нибудь формулу?)

[veniside]

> Получается - 7 способов.

шесть вобще-то.

{$APPTYPE CONSOLE}

program
  Project1;

const
  N  = 7;

var
  i1, i2, i3, i4, i5, i6: integer;
  count: integer;
begin
  count := 0;
  for i1 := 1 to 6 do
  for i2 := 1 to 6 do
  for i3 := 1 to 6 do
  for i4 := 1 to 6 do
  for i5 := 1 to 6 do
  for i6 := 1 to 6 do
    if (N = i1 + i2 + i3 + i4 + i5 + i6) then begin
      //
      WriteLn(N, ' = ', i1, ' + ', i2, ' + ', i3, ' + ', i4, ' + ', i5, ' + ', i6);
      inc(count);
    end;
  //
  WriteLn('Count=', count);
end.