S:='мама мыла раму';
while pos('ам',s) > 0 do begin
x := pos('ам', s);
delete(s, x, 2);
end;
writeln(length(s));

Povelitel2004    1   27.03.2020 12:06    21