Найти все двузначные числа, которые делятся на n или содержат цифру n. (программа Паскаль)

program z1;
uses crt;
var a,b,c,n,i: integer;
begin
read (n);
for a:=1 to 9 do
for b:=0 to 9 do
if ((a*100+b) mod n=0) or (a=n) or (b=n)then   write ((a*100+b*10+c):4);
end.