Создать программу поиска всех трехзначных чисел, делящихся на каждую из своих цифр без остатка — Pascal(Паскаль)

uses crt;
var a,b,c:byte;
    n:integer;
begin
clrscr;
writeln('Трехзначные числа, делящиеся на все свои цифры:');
for a:=1 to 9 do
for b:=1 to 9 do
for c:=1 to 9 do
 begin
  n:=100*a+10*b+c;
  if (n mod a=0)and(n mod b=0)and(n mod c=0) then
  write(a,b,c,' ');
 end;
readln
end.