Рекурсия: функция сложения двух чисел, используя только прибавление единицы

    uses crt;
function up(a,b:integer):integer;
var
d : integer;
begin
d:=0;
while d<b do begin
inc(a);
inc(d);
end;
writeln('A+B=',a);
end;
 
var
a,b : integer;
begin
clrscr;
readln(a,b);
up(a,b);
readkey;
end.

uses crt;
function up(a,b:integer):integer;
var
d : integer;
begin
for d:=1 to b do inc(a);
up:=a;
end;
var
a,b : integer;
begin
clrscr;
readln(a,b);
writeln(up(a,b));
readkey;
end.

procedure up(x,dc);forward; 
{ эта строчка показывает что процедура с данным именем находиться далее по тексту программы } 
{ позволяет процедуре обращаясь к этой строчке - вызвать саму себя.}   
 
procedure up(x,dx);
begin 
{ условие выхода из рекурсии, чтобы функция не вызывала сама себя вечно} 
if dx>0 then up(inc(x),dec(dx))     
                       else write('a + b = ',x);
end;
 
uses crt;
var a,b:integer;
begin clrscr; write('введите первое число : ');
readln(a);
write('введите второе число : ');
readln(b);
 
up(a,b);
 
readkey;
end.

uses crt;
function Summa(a,b:integer):integer;
begin
if a=0 then Summa:=b
else if a>0 then Summa:=Summa(a-1,b+1)
else Summa:=Summa(a+1,b-1)
end;
var n,m:integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
write(Summa(n,m));
readln
end.