лабы / лаб5 / lab5_dop

program lab5_dop;
const n = 203;
var
    results: array[1..n+1] of string;
    s, temp_s: string;
    i,j,temp_pos: integer;
begin
    for i:=1 to n+1 do
    begin
        s := '';

        // формируем строку
        for j:= 1 to n+1 do
        begin
            if (j=i) then s := s + '2'
            else s := s + '1';
        end;
        
        // выполняем алгоритм, описанный в задании
        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;

        // добавляем результат в массив
        results[i] := s;
    end;
    
    // сортируем массив
    for i:=1 to n+1 do
    begin
        for j:=1 to n do
        begin
            if (Length(results[j]) > Length(results[j+1])) then
            begin
                temp_s := results[j];
                results[j] := results[j+1];
                results[j+1] := temp_s;
            end;
        end;
    end;

    WriteLn(results[n+1]);
end.