Question

Определите, что будет выведено на экран в результате работы следующего фрагмента кода:

s := '201920192019';
while pos('1', s) > 0 do begin
i := pos('1', s);
delete(s, i, 1);
insert('one', s, i);
end;
writeln(s);