Помогите с программой

[Hamza117]

var
i,j,l,t,k,sum, N,S: word;

begin
write('Предел для перебираемых чисел: ');
readln(N);
write('Искомая сумма: ');
readln(S);
for i:=1 to N do
for j:=1 to N do
for l:=1 to N do
for t:=1 to N do begin
sum := i + j + l + t;
if sum = S then
writeln(i,' ',j,' ',l,' ',t);
end;
readln;
end.


Вот код программы, нужно что бы в каждой комбинации не было повторяющихся чисел(если они есть)
Снимок.PNG
Вот скриншот этой программы
Нужен готовый код!

[WorldMaster]

Тут алгоритм будет посложнее.

[Aleksandr H.]

Еще 6 условий в которых сравнивать счетчики между собой?

[WorldMaster]

Это переборы без повторений. В интернете есть уже готовые решения. Я помню чтото похожее делал так типа там код получился достаточно громоздкий.

[Hamza117]

Сообщение от WorldMaster

Это переборы без повторений. В интернете есть уже готовые решения. Я помню чтото похожее делал так типа там код получился достаточно громоздкий.

Можете написать этот перебор, на основе моего кода?

[Hamza117]

Если можете, напишите код, на основе моего, только с решением данной задачи.Пожалуйста!

[WorldMaster]

На следующей неделе разве что. Как с отпуска вернусь.

[Hamza117]

Ох... Почти месяц не могу это сделать, ни на каких форумах не помогают... А этого решения нигде не нашёл, всё прошерстил. Последняя надежда-форумы.

[WorldMaster]

Надо было в разделе фриланс разместить и дело бы пошло быстрее.

[ura_111]

На второй странице....