Приведу код на Pascal, который реализует данную задачу:

program AddParityBit;
var
binaryString: string;
i, countOnes: integer;
begin
countOnes := 0;
// Ввод битовой строки
writeln('Введите битовую строку:');
readln(binaryString);
// Подсчет количества единиц в строке
for i := 1 to length(binaryString) do
begin
if binaryString[i] = '1' then
countOnes := countOnes + 1;
end;
// Добавление последнего бита в зависимости от четности количества единиц
if countOnes mod 2 = 0 then
binaryString := binaryString + '0'
else
binaryString := binaryString + '1';
// Вывод полученной строки
writeln('Получившаяся битовая строка:');
writeln(binaryString);
end.

Для выполнения этого кода вам потребуется установить среду разработки Pascal (например, Lazarus) на вашем компьютере.