Вывести все четырехзначные числа, у которых цифры разные

program gg;
const a:array[1..7] of integer=(60,4324,5457,9810,11,3409,1081);
var b,i:integer;
begin
writeln('исходный массив');
for i:=1 to 7 do write(a[i],' ');
writeln;
writeln('все четырёхзначные числа');
for i:=1 to 7 do
if(a[i]>999) then write (a[i],' ');
end.

const a: array[1..7] of integer = (60, 4324, 5457, 9810, 11, 3409, 1081);
 
function IsDifferent(x: integer): boolean;
begin
  var digits := new System.Collections.Generic.List<integer>();
  var count := 0;
  while x > 0 do begin
    var t := x mod 10;
    inc(count);
    if not digits.Contains(t) then digits.Add(t);
    x := x div 10;
  end;
  if digits.Count = 4 then Result := true
  else Result := false;
end;
 
begin
  writeln('исходный массив');
  for var i := 1 to 7 do write(a[i], ' ');
  writeln;
  writeln('все четырёхзначные числа');
  for var i := 1 to 7 do
    if(a[i] > 999) and (a[i] < 10000) then write(a[i], ' ');
  writeln;
  writeln('с разными цифрами:');
  for var i := 1 to 7 do
    if IsDifferent(a[i]) then write(a[i], ' ');
end.

begin
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      if a<>b then
        for var c:=0 to 9 do
          if (a<>c) and (b<>c) then
            for var d:=0 to 9 do
              if (a<>d) and (b<>d) and (c<>d) then
                Write(#32,a,b,c,d);
end.

begin
  var a := Arr(60, 2434, 5457, 9810, 11, 3409, 1081);
  writeln('Четырехзначные числа из массива, у которых все цифры разные:');
  a.Where(x -> x.InRange(1000, 9999) and (x.ToString.Distinct.Count = 4)).Println;
end.

begin
  writeln('Все четырехзначные числа, у которых все цифры разные:');
  Range(1000, 9999).Where(x -> x.ToString.Distinct.Count = 4).Println;
end.