//программа будет работать для чисел, которые входят в диапазон longint
var
x : longint;
save, checker, lv : integer;
begin
checker := 0;
readln(x);
x := abs(x);
while (x <> 0) and (checker < 1) do
begin
checker := 0;
save := x mod 10;
x := x div 10;
lv := x;
while lv <> 0 do
begin
if lv mod 10 = save then
checker := 1;
lv := lv div 10;
end;
end;
if (checker = 1) then
writeLn('YES')
else
writeLn('NO');
end.
