program q;
uses crt;
var h,c,s:string;
gg,a,k,i:integer;
BEGIN clrscr;
for gg:=1 to 5 do begin a:=0;
write('Ââåäèòå ',gg);
writeln(' ÷èñëî');
readln(s);
for i:=1 to (length(s)-1) do begin c:=s[i];
for k:=i+1 to length(s) do if c=s[k] then a:=1 end ;
if a=0 then h:=h+' '+s;
end ;
writeln(h) ;
readln;
END.