Ввести с клавиатуры двузначное число и цифру. определить, есть ли данная цифра в этом числе

var a, b: integer; begin readln (a, b); if (a mod 10 = b) or (a div 10 = b) then writeln ('yes')  else writeln ('no'); end.