program hhh;
uses crt;
const m=5;
var n:longint;mn,rmn:set of 0..9;i:byte;
BEGIN
rmn:=[0..9];
for i:=1 to m do begin
writeln('vv chislo');
readln(n);
mn:=[];
while n<>0 do begin
mn:=mn+[n mod 10];
n:=n div 10;
end;
rmn:=rmn*mn;
end;
writeln('cifri: ');
for i:=0 to 9 do
if i in rmn then write(i:3);
readln;
END.