const n=10;
var a:array[1..n] of integer;
i:integer;  
mn:set of 0..9;  
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(200);
 write(a[i],' ');
 end;
writeln;
mn:=[];
for i:=1 to n do mn:=mn+[a[i] mod 10];
writeln('Множество:');
for i:=0 to 9 do 
 if i in mn then write(i,'  ');
 writeln;
end.

Пример работы программы:
19 151 75 191 1 19 175 137 192 83 
Множество:
1  2  3  5  7  9