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

uses crt;
var i,n,nn: byte;
    b: boolean;
begin
write('n=');
readln(n);
for i:=10 to 99 do
    begin
    nn:=i;
    b:=false;
    repeat
    b:=nn mod 10=n;
    nn:=nn div 10;
    until (nn<1) or b=true;
    if b or (i mod n=0) then write(i:3);
    end;
readln;
end.

uses crt;
var i,n,nn: byte;      //переменные для счетчика, для вводимого с клавиатуры числа, для резервного числа для проверки цифр
    b: boolean;        //переменная для проверки достоверности того, что в числе есть запрошенные цифры
begin
write('n=');          //запрашиваем цифру
readln(n);            //считываем в память
for i:=10 to 99 do    //перебираем в цикле с парметром двузначные числа
    begin             //для каждого
    nn:=i;            //заносим число в дополнительную переменную
    b:=false;         //изначально считаем, что нет цифр, равных n
    repeat            //повторяем, пока не найдем цифру, равную n, или пока не закончится число
    b:=nn mod 10=n;    //переменная b примет значение "истина", если "отрезанная" от числа с помощью функции mod цифра будет равна n
    nn:=nn div 10;     //убираем последнюю цифру с помощью функции целочисленного деления на 10
    until (nn<1) or b=true;              //цикл с постусловием - проверяем условие - b приняло значение "истина" или число стало меньше 1
    if b or (i mod n=0) then write(i:3); //если число содержит цифру или делится на введенную цифру без орстатка, выводим его на экран
    end;
readln;
end.