//PascalABC v3.1
var s: string;
procedure repAll(var s: string; wOld, wNew: string);
var res: string;
p, len: integer;
begin
len:= Length(wOld);
res:= '';
while Length(s) > 0 do begin
p:= Pos(wOld, s);
if p = 0 then begin res:= res + s; break; end;
if p > 1 then res:= res + Copy(s,1,p-1);
res:= res + wNew;
if p+len > Length(s) then
s:= ''
else s:= Copy(s,p+len,Length(s));
end;
s:= res
end;
begin
readln(s);
repAll(s, 'СО', 'ТУ');
writeln(s)
end.
Тестовое решение:
СОК СОК СОК КОК ПОК
ТУК ТУК ТУК КОК ПОК
ПРАВЕЛЬНА ВІДПОВІДЬ РОУТЕР