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

var n,m:integer;beginwrite('Число = '); 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Цифра есть