Задание по информатике

program add_bit; var str: string; count, i: integer; new_bit: char; begin write('Введите битовую строку: '); readln(str); count := 0; for i := 1 to length(str) do begin if str[i] = '1' then count := count + 1; end; if count mod 2 = 0 then new_bit := '0' else new_bit := '1'; str := str + new_bit; writeln('Получившаяся строка: ', str); end.