var
s,t:string;
begin
readln(s);
readln(t);
while pos(t,s)<>0 do
delete(s,pos(t,s),length(t));
writeln(s);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s,t:string;
begin
readln(s);
readln(t);
while pos(t,s)<>0 do
delete(s,pos(t,s),length(t));
writeln(s);
end.