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

Program p;

var a,s:integer;

Begin

Readln(a, s);

While s <>0 do begin

s := s mod 10;

if (s = a) then begin

writeln('yes');

s :=0;

end

else writeln('no');

if ( a < 10) then writeln('no');

end;

end.

Объяснение: