program H;
var
s,s0:string;
begin
s:='databasedata';
s0:='data';
if pos(s0,s)<>0 then
delete(s,pos(s0,s),length(s0));
writeln(s);
end.
Результат работы программы
Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. Если совпадающих строк нет, то вывести S без изменений — Pascal(Паскаль)