Здравствуйте, Сиваков Александр!

Программа в приложении.
Выполняет суммирование трех двоичных чисел, второе число переводится ещё в дополнительный код.
По подпрограммах:
inputBin - вводит число в двоичной системе;
rangeBin - все введенные числа выравниваются к одному размеру, определенному в разделе констант;
convertBin - преводит число в дополнительный код;
doSummaBin - суммирование двух двоичных чисел;
outputBin вывод результата на экран.
Вопросы задавайте в минифорум.
Удачи!

Приложение:
uses crt;
const
n=32;
type
TMass=string[n];
var a,b,c:TMass;
procedure inputBin(var d:TMass;e:char);
begin{inputBin}
{вводим число в обратном порядке}
write('Enter number',e:2,':');
d:='';
repeat
e:=ReadKey;{символ без эхо}
if (e='0')or(e='1')then{ноль или единица}
begin{begin if}
write(e);{выводим его}
d:=e+d;{и добавляем в строку}
end;{end if}
until (e=chr(13))or(length(d)=n);{}
writeln;
end;{inputBin}
procedure outputBin(d:TMass);
var
i:integer;
begin{outputBin}
{выводим результат}
write('Result :');
{в обратном порядке}
for i:=length(d)downto 1 do
write(d[i]);
writeln;
end;{outputBin}
procedure doSummaBin(var d,e:Tmass);
var
f:char;
i:integer;
begin{doSummaBin}
f:='0';{}
for i:=1 to length(d) do
begin{for}
if (e[i]<>d[i])then
{обрабатываем ситуацию когда биты различны}
begin{ed=10,01}
if f='1'
then d[i]:='0' {edf=101,011}
else d[i]:='1';{edf=100,010}
end{10,01}
else
{обрабатываем ситуацию когда биты одинаковы}
begin{ed=00,11}
{edf=001,000,111,110}
d[i]:=f;
f:=e[i];
end;{00,11}
end;{for}
end;{doSummaBin}
procedure rangeBin(var d:Tmass);
begin{rangeBin}
while length(d)<n do
d:=d+'0';
end;{rangeBin}
procedure convertBin(var d:TMass;e:TMass);
var
i:integer;
begin{convertBin}
for i:=1 to length(d)do
{инвертируем биты}
case d[i]of{case}
'0':d[i]:='1';
'1':d[i]:='0';
end;{case}
rangeBin(e);{выравниваем строку}
doSummaBin(d,e);{суммируем}
end;{convertBin}
begin{main}
{вводим числа}
inputBin(a,'A');
inputBin(b,'B');
inputBin(c,'C');
{выравниваем к одному размеру}
rangeBin(a);
rangeBin(b);
rangeBin(c);
{переводим в дополнительный код}
convertBin(b,'1');
{суммируем А + Вд + С}
doSummaBin(a,b);
doSummaBin(a,c);
{выводим результат}
outputBin(a);
ReadKey;
end.{main}