Var
 S:String;
 C:Char;
 b1,b2:boolean;
 i:byte;

Begin
 Repeat
  b1:=TRUE;
  b2:=TRUE;
  Write('N = ');
  Readln(S);
  if length(S)<>7 then b1:=FALSE;
  if b1 then
   for i:=1 to 7 do
    if (Ord(S[i])<48) or (Ord(S[i])>57) then b2:=FALSE;
  if (b1=FALSE) or (b2=FALSE) then
   Writeln('Incorrect value! Repeat the inputing!')
 Until b1 and b2;
 Repeat
  b1:=TRUE;
  Write('C = ');
  Readln(C);
  if (Ord(C)<48) or (Ord(C)>57) then
   begin
    b1:=FALSE;
    Writeln('Incorrect value! Repeat the inputing!');
   end;
 Until b1;
 b1:=FALSE;
 i:=0;
 repeat
  Inc(i);
  if S[i]=C then b1:=TRUE;
 until b1 or (i=7);
 if b1 then Writeln('Yes!') else Writeln('No!');
 Readln
End.

Var
 N:LongInt;
 D,A:Byte;

Begin
 Write('N = ');
 Readln(N);
 Write('D = ');
 Readln(D);
 repeat
  A:=N mod 10;
  if A<>D then N:=N div 10;
 until (A=D) or (N=0);
 if A=D then Writeln('Yes!') else Writeln('No!');
 Readln
End.