Найдите ошибки паскальprocedure fn(s: string); var i: integer; beginreadln(s); for i to length(s) dobeginif copy(s,i,5)='минус'; thendelite(s,i,5); insert('плюс',s,i); end; end; var b: string; beginwrite(fn(b)); end.

function fn(s:string):string;

var i:integer;

begin

i:=pos('минус',s);

while i>0 do

begin

delete(s,i,5);

insert('плюс',s,i);

i:=pos('минус',s);

end;

fn:=s;

end;

var b:string;

begin

readln(b);

write(fn(b));

end.

Пример:

минус + плюс - минус = 0

плюс + плюс - плюс = 0