Дано целое число N(amp;gt;0). Вводится цифра A (0amp;lt;=Aamp;lt;=9).Заходит ли данная цифра

Pascal

var n: integer;

a: 0..9; b: boolean;

begin

write('Введите число N: ');

readln(n);

if ngt;0 then

begin

write('Введите цифру A: ');

readln(a);

if (agt;=0) and (alt;=9) then

begin

while (ngt;1) do

begin

if a=n mod 10 then begin b:=true; break; end else b:=false;

n:=n div 10;

end;

writeln(b);

end else writeln('Введите цифру A от 0 до 9');

end else writeln('Введите иное число, больше 0!');

end.