дано двузначное число. определите входит ли в него цифра b

var  n,b:integer;begin  Write('Введите натуральное двухзначное число: ');  Read(n);  Write('Введите искомую цифру: ');  Read(b);  if (n mod 10 = b) or (n div 10 = b) then    Writeln('Искомая цифра в числе есть')  else    Writeln('Искомой цифры в числе нет')end.Контрольные решенияВведите натуральное двухзначное число: 38Введите искомую цифру: 3Искомая цифра в числе естьВведите натуральное двухзначное число: 50Введите искомую цифру: 2Искомой цифры в числе нет