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

var a,b,c:integer;beginwriteln('введите число');readln(a);for b:=10 to 99 dobeginif (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);end;end.