Вот пример программы на Pascal, которая находит одинаковые цифры в двух числах:

program FindSameDigits;
function FindSameDigits(num1, num2: integer): string;
var
digits1, digits2: array[0..9] of boolean;
resultString: string;
i: integer;
begin
resultString := '';
// Инициализируем массивы для хранения информации о цифрах чисел
for i := 0 to 9 do
begin
digits1[i] := false;
digits2[i] := false;
end;
// Заполняем массивы для числа num1
while num1 > 0 do
begin
digits1[num1 mod 10] := true;
num1 := num1 div 10;
end;
// Заполняем массивы для числа num2 и проверяем наличие совпадений
while num2 > 0 do
begin
if digits1[num2 mod 10] then
begin
resultString := resultString + IntToStr(num2 mod 10) + ' ';
end;
digits2[num2 mod 10] := true;
num2 := num2 div 10;
end;
FindSameDigits := resultString;
end;
var
num1, num2: integer;
begin
num1 := 466;
num2 := 476;
writeln('Одинаковые цифры: ', FindSameDigits(num1, num2));
end.

Программа выводит на экран одинаковые цифры из двух чисел (в вашем случае 6 6).