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

Var   A,b,c,d:integer;BeginFor A:= 100 to 999 do    Begin    b:=A div 100;    c:=(A div 10) mod 10;    d:=A mod 10;    if (b<>c)and(b<>d)and(c<>d) then Write(A,' ')    End;End.