Найти кратные пяти натуральные четырёхзначные числа, в записи которых все цифры различны

program p2;
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
begin
if i mod 5=0 then
begin
writeln;
readln;
end;end;end;end.

var a, b, c, d, i: integer;
begin
  for i := 1000 to 9999 do
    begin
      a := i div 1000;
      b := i div 100 mod 10;
      c := i div 10 mod 10;
      d := i mod 10;
      if (a <> b) and (a <> c) and (a <> d) and (b <> c)
         and (b <> d) and (c <> d) and (i mod 5 = 0)
        then write(i:5)
    end;
  readln
end.

var a, b, c, d: integer;
begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        for d := 0 to 9 do
          if (a <> b) and (a <> c) and (a <> d) and (b <> c)
             and (b <> d) and (c <> d) and (d mod 5 = 0)
            then write(' ', a, b, c, d);
  readln
end.