Напишите программу, которая вводит трёхзначное число и десятичную цифру. определить, входит ли эта цифра в десятичную запись введённого числа.

Var n,m: integer; begin write('число = '); readln(n); write('цифра = '); readln(m); if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)   then writeln('цифра есть')   else writeln('цифры нет'); end. пример: число = 519 цифра = 5 цифра есть