Напишите все возможные комбинации из 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.