Дано целое число n – количество элементов массива. вывести те цифры элементов массива, которые содержатся в каждом единичном разряде.(с

Программа для решения задачи и пример её работы - в прилагаемом файле.

Var ar:array of integer;
i,n:integer;
IntSet:set of integer;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
begin;
 ar[i]:=random(100);
 write(ar[i]:4);
 IntSet+=[ar[i] mod 10];
end;
writeln;
writeln('Set:',IntSet);
end.