НАЧАЛО ПОКА нашлось (19) ИЛИ нашлось (299) ИЛИ нашлось (3999)
заменить (19, 2)
заменить (299, 3)
заменить (3999, 1)
КОНЕЦ ПОКА
КОНЕЦ
На вход этой программе подаётся строка длины 101, состоящая из цифры 1, за которой следуют 100 идущих подряд цифр 9. Какая строка получится в результате применения программы к этой строке

найти ошибку в программе Паскаль

begin
var s := '1' * 99 + '9' * 98;
while (pos ('19',s)> 0) (pos ('299',s)> 0)or (pos ('3999',s)> 0)do
begin
var i1:= pos ('19',s);
var i2:= pos ('299',s);
var i3:= pos ('3999',s);
if ('19'<> 0) or ('299'<> 0) or ('3999'<> 0) then
begin
delete (s,'19',2);
insert (s,'2',i1);
delete (s,'299',3);
insert (s,'3',i2);
delete (s,'3999',4);
insert (s,'1',i3);
end;
end;
writeln (s)
end.

Qwiq    3   28.02.2021 11:32    22