Дано натуральное число. Определить, есть ли в нем цифра равная а (а вводится…

varz,a,i: integer; beginwriteln ('vvedite chislo'); readln (z); writeln ('vvedite zifru'); readln (a); for i: =1 to length (IntToStr (z) do beginif z mod 10=a thenwriteln ('est'); z: =z div 10; end; end.