лабы / лаб5 / lab5_dop_var2

program lab5_dop_var2;
const n = 203;
var
i, j, temp_pos: byte;
max_str: shortstring = '';
s: shortstring;

begin
for i:=1 to n do
begin
// Формируем строку
s := '';
for j:=1 to n do s := s + '1';
insert('2',s,i);

while ((pos('111',s) <> 0) or (pos('222',s) <> 0)) do
begin
if (pos('111',s) <> 0) then
begin
temp_pos := pos('111',s);
delete(s,temp_pos,3);
insert('22',s,temp_pos);
end
else
begin
temp_pos := pos('222',s);
delete(s,temp_pos,3);
insert('11',s,temp_pos);
end;
end;

if (length(s) > length(max_str)) then max_str := s;
end;

WriteLn(max_str);
end.