//Pascal ABC.NET v3.1 сборка 1172

Var
 s,c:string;
 i,k,j,m:integer;
begin
 readln(s);
 k:=0;
 m:=length(s);
 i:=0;
 while im do
  begin;
   inc(i);
   for j:=i to m do
    if s[i]=s[j] then inc(k);
    if k=3 then
     begin;
    c:=s[i];
     while pos(c,s)0 do
      delete(s,pos(c,s),1);
    end;
   k:=0;
   m:=length(s);
  end;
 writeln(s);
end.

Пример ввода:
Панамка
Пример вывода:
Пнмк