Паскаль. Без подмоги знака + написать код для сложения 2-ух цифр.

Задание для извращенцев? Сумматор всегда заходит в состав хоть какого микропроцессора и любые пробы выполнить сложение по другому лишь усложнят получение результата.

//Pascal
//1-ый вариант
var a, b:integer;
BEGIN
  write('Введите первое число = '); readln(a);
  write('Введите второе число = '); readln(b);
  writeln(a-(-b));
END.


//---------------------------------------
//Второй вариант
function recSumBits(a, b:integer):integer;
var o1, o2: integer;
begin
  if b = 0 then recSumBits := a
  else
  begin
    o1 := a xor b;
    o2 := (a and b) shl 1;
    recSumBits := recSumBits(o1, o2);
  end;
end;

var a, b: integer;
BEGIN
  write('Введите первое число = '); readln(a);
  write('Введите 2-ое число = '); readln(b);
  writeln(recSumBits(a, b));
  readln;
END.