program mn;
uses crt;
var s,s1,s2,z:string;
i,k:integer;
BEGIN ClrScr;
Write('Stroka:');readln(s);
Write('So4etanie:');readln(s1);
Write('Zamenjat na:');readln(s2);
i:=1;
k:=length(s1);
While iif z=s1 then begin delete(s,i,k);
insert(s2,s,i);
end;
inc(i,k);
end;
writeln(s);
readln;
END.