III/11

var
s, s1, s2: string;
i, a : integer;

begin
    ReadLN(s);//строка
    ReadLN(s1);//substr1
    ReadLN(s2);//substr2
    while (pos(s1, s) <> 0) do begin//пока в строке s найдена подстрока s1
        i:= pos(s1, s);//запоминаем начало этой подстроки
        delete(s, i, length(s1));//удаляем ее
        insert(s2, s, i);//вставляем s2 на эту позицию
    end;
    WriteLN(s);
end.