Question

С клавиатуры вводится строка s.Составьте программу,которая удаляет из строки указанное слово t,которое вводится с клавиатуры.
Через PASCALE.NET​

Answer 1

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.