Введите два числа а и в. проверьте, есть ли у них одинаковые цифры.

var
  s, s1: string;
  i: integer;

begin
  readln(i);
  s := IntToStr(i);
  readln(i);
  s1 := IntToStr(i);
  for i := 1 to length(s) do
    if (pos(s[i], s1) > 0) then
      s1 := '-';  if (s1 = '-') then
    writeln('Yes')
  else
    writeln('No');
end.