Написать программу, которая находит одинаковые цифры двух чисел. в pascal, желательно через function. можно чтобы токого не было.входные данные: 466 476. выходные : 6 6. заранее

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! function duplicates(a,b: int64): array of char; begin   var ha: =a.tostring.tohashset;   ha.intersectwith(b.tostring.tohashset);   result: =ha.toarray end;   begin   var m,n: int64;   write('введите через пробел два натуральных числа: ');   read(m,n);   var r: =duplicates(m,n);   if r.length=0 then writeln('нет цифр, встречающихся в обоих числах')   else r.println(',') end. примеры введите через пробел два натуральных числа: 12345 6789067 нет цифр, встречающихся в обоих числах введите через пробел два натуральных числа: 1342103 6748644 4 реализация без множеств procedure ntoarray(n: int64; a: array of boolean); begin   for var i: =0 to 9 do a[i]: =false;   if n=0 then a[0]: =true   else       while n> 0 do begin           a[n mod 10]: =true;           n: =n div 10           end end; function duplicates(a,b: int64): array of boolean; begin   var ma: =new boolean[10];   var mb: =new boolean[10];   ntoarray(a,ma);   ntoarray(b,mb);   result: =new boolean[10];   for var i: =0 to 9 do       result[i]: =ma[i] and mb[i] end;   begin   var m,n: int64;   write('введите через пробел два натуральных числа: ');   read(m,n);   var r: =duplicates(m,n);   write(' цифры: ');   for var i: =0 to 9 do       if r[i] then write(i,' ');   writeln end. пример введите через пробел два натуральных числа: 12352423 98789635233 цифры: 2 3 5

24: 135,153,157,175,173,137 357,375,315,317,351,371 513,531,537,573,571,517 713,731,735,753,751,715