program DeleteSyllable;

var
s, deletedSyllable: string;

begin
writeln('Enter a string:');
readln(s);

deletedSyllable := 'То';

while Pos(deletedSyllable, s) > 0 do
begin
Delete(s, Pos(deletedSyllable, s), Length(deletedSyllable));
end;

writeln('Result:');
writeln(s);
end.