Помогите, пожалуйста, решить задачу ** паскале. Срочно.Даны два натуральных числа m и n....

Question

Помогите, пожалуйста, решить задачу на паскале. Срочно.
Даны два натуральных числа m и n. (m,n ≤ 9999). Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.

Answer 1

var
  a, b: integer;
  x, y: string;

begin
  readln(a);
  Str(a, x);
  readln(a);
  Str(a, y);
  
  for b := 1 to length(y) do
    if (Pos(y[b], x) > 0) then
    begin
      writeln('Есть!');
      exit;
    end;
  writeln('Нет!');
end.