Question

найдите ошибки пж Паскаль
procedure fn(s:string);
var i:integer;
begin
readln(s);
for i to length(s) do
begin
if copy(s,i,5)='минус';
then
delite(s,i,5);
insert('плюс',s,i);
end;
end;
var b:string;
begin
write(fn(b));
end.

Answer 1

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