Найти все двузначные числа, которые делятся на m или содержат цифру m. Язык Паскаль

Условие:

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

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

или (остаток после деления 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.