Лабы+Курсовик / Laba3

program task3;
uses Crt;
var pred,word,s1:string;
i:integer;
begin
ClrScr;
Write('Vvedite predlozenie:');
Readln(pred);
WriteLn;
Write('Vvedite slovo dlya udaleniya:');
ReadLn(word);
i:=pos(word,pred);
delete(pred,i,length(word));
WriteLn;
Writeln('Poluchilos: ',pred);
Readkey
end.