program p95_12;
uses crt;
var c,s:string;
    b,i:byte;

begin
clrscr;
Writeln('Tapeaza un text: ');readln(c);
s:=c[2];
for b:=1 to length(c) div 2 do begin
 i:=1;
 while(i<length(s))and(s[i]<>c[2*b])do inc(i);
 if c[2*b]<>s[i]then s:=s+c[2*b];

end;
writeln(s);
readkey
end.