сумма выбранных чисел делилась на N Опции

[Tima]

имеется n чисел, написать программу, так чтобы сумма выбранных чисел делилась на n.
например n=6, а выбирать нужно по 2 числа, так чтобы сумма этих двух была равна 6, выдать все возможные комбинации...помогите плз.

[Tima]

помогите сделать проверку на кратность сумму чисел на N...

for i:=0 to m do a[i]:=i; { формируется 1-е сочетание}
repeat
use;
I:=m;

while a[i]=n-m+i do dec(i); {поиск элемента для изменения}
inc(a[i]);

if ( a[i] div n = 0 ) then inc(sum); {я сделал такую проверку правильно ли? если нет то какую нужно?}


for j:=i+1 to m do a[j]:=a[j-1]+1; {изменение правой части сочетания}

then
inc(sum);}

until i=0;