program Dekio;
var
s,n :string;
i :integer;
begin
writeln('Введите строку');
readln(s);
writeln('Введите слово которое удалить');
readln(n);
while pos(n,s)<>0 do
delete(s,pos(n,s),length(n));
writeln('Результат');
writeln(s);
end.