Отыскать все двузначные числа, которые делятся на m либо содержат цифру

Условие:

если ((число i делится на m без остатка i делится на m )

либо (число десятков в числе i одинаково m 1-ая цифра)

либо (остаток после деления i на 10 равен m число единиц))

тогда вывести число i.

program number_m;

var i, m: integer;

begin

writeln(Введите цифру);

readln(m);

for i := 10 to 99 do

if ((i mod m = 0) or (i div 10 = m) or (i mod 10 = m)) then write(i:3)

end.