Напишите все возможные комбинации из 4 цифр от 1 до 6,чтобы они не повторялись между собой.СРОЧНО ДАЮ 100 БАЛЛОВ!

var a:array[1..6] of integer;B:ARRAY[1..6] OF INTEGER;C:ARRAY[1..6] OF INTEGER;D:ARRAY[1..6] OF INTEGER;i,j,k,l:integer;beginfor i:=1 to 6 do a[i]:=i;  for j:=1 to 6 do b[j]:=j;      for k:=1 to 6 do c[k]:=k;        for l:=1 to 6 do d[l]:=l; for i:=1 to 6 do           for j:=1 to 6 do                for k:=1 to 6 do                      for l:=1 to 6 do                       writeln( a[i],b[j],c[k],d[l]);  end.

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018Внимание! Если программа не работает, обновите версию!begin  for var i:=1 to 6 do    for var j:=1 to 6 do      if i<>j then        for var k:=1 to 6 do          if (i<>k) and (j<>k) then            for var l:=1 to 6 do              if (i<>l) and (j<>l) and (k<>l) then Write(i,j,k,l,' ')end.