Найти все двузначные числа, которые делятся на n или содержат цифру n. ! умоляю

Var n, i: integer;
begin
   read(n);
   for i:=10 to 99 do
       if (i mod n=0) and (i mod 10<>n) and (i div 10<>n) then write(i, ' ');
end.