Нужен программист для написания программы на основе этого...

[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
Нужен готовый код.