Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений.

Var
  s, s0: string;
  i: integer;

begin
  writeln(Введите строку);
  readln(s);
  writeln(Введите подстроку);
  readln(s0);
  i := Pos(s0, s);
  if i > 0 then Delete(s, i, length(s0));
  writeln(Результат:);
  writeln(s)
end.

Тестовое решение:

Введите строку
Где-то тут прячется подстрока, которую мы должны найти и удалить!
Введите подстроку
мы должны найти
Результат:
Где-то тут прячется подстрока, которую  и удалить!

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.