var
  s : string;
  i : integer;
begin
  WriteLn('Введите строку: ');
  Readln(s);
  i:=1;
  while i<Length(s) do
  begin
    while Pos(s[i],Copy(s,i+1,255))>0 do
      delete(s,Pos(s[i],Copy(s,i+1,255))+i,1);
    inc(i);  
  end;
  WriteLn(s)  
end.