Найти все трехзначные числа, которые состоят из различных цифр — Pascal(Паскаль)

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