Цикл, простенькая задача с использованием цикла Опции

[йцукен]

Сдрасте

даны 2 числа , "a" и "b" , нужно найти есть ли в этих 2 - ух числах одинаковые цифры , например
256 и 216 , совпадающими буду 2 и 6 , заранее неизвестно какой длины число , в этом собственно и проблема.
есть идея сделать цикл repeat и в нём делить числа (mod) но как правильно это сделать никак не пойму , помогите пожалуйста

[volvo]

Я бы на твоем месте почитал книжку (в частности - о работе с логическими выражениями, ибо оно у тебя записано вообще неправильно)...

var
  a, b: integer;
begin
  readln(a);
  readln(b);
  repeat
    if (a mod 10) = (b mod 10) then writeln(a mod 10);
    a := a div 10; b := b div 10;
  until (a = 0) or (b = 0)
end.

Так лучше?