PROGRAM SUM_ZNAK;
var
  k:byte;
  n,m:longword;
  q:boolean;

begin
  writeln('Поиск цифры в числе');
  write('Введите искомую цифру '); readln(k);
  write('Введите число '); readln(n);
  
  m:=n;
  q:=true;
  while (n > 0) and q do begin
    n := n div 10;
    if (n = k) then
      q:=false;
  end;
  
  if q then
    writeln('Найдена цифра ',k,' в числе ',m)
  else
    writeln('Цифры ',k,' в числе ',m, 'не найдено')
  
end.