Выведите на экран все четырехразрядные числа, в записи которых нет одинаковых цифр - Pascal ABC

var
  a, b, c, d: integer;
 
begin
  for a := 1 to 9 do
    for b := 0 to 9 do if not (b in [a]) then
      for c := 0 to 9 do if not (c in [a, b]) then
        for d := 0 to 9 do if not (d in [a, b, c]) then write(a, b, c, d, ' ');
end.