Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.

P.S. На языке паскаль.

//Pascal ABC.NET v3.0 сборка 1111Var a,b,i,j:integer;begin read(a,b); for i:=1 to length(inttostr(a)) do  for j:=1 to length(inttostr(b)) do  if inttostr(a)[i]=inttostr(b)[j] then   begin;    writeln('Есть');    exit;   end; writeln('Нет');end.Пример ввода:123345Пример вывода:Есть