Составьте программу,вычеркивающую из слова Х буквы,встречающиеся при написании сЛова Х ровно три раза.

//Pascal ABC.NET v3.1 сборка 1172Var s,c:string; i,k,j,m:integer;begin readln(s); k:=0; m:=length(s); i:=0; while i<>m 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.Пример ввода:ПанамкаПример вывода:Пнмк