Найти все двузначные числа, которые делятся на 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.