Фрагменты программ на Паскале реализуют алгоритмы формирования таких комбинаторных групп, как:
...for i:=1 to n-1 dofor j:=i+1 to n do writeln (A[i], A[j]);
...for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]);
…for i:=1 to n dofor j:=1 to n do if i<>j then writeln (A[i], A[j]);
…for i:=1 to n dofor j:=1 to n do writeln (A[i], A[j]);