Uses CRT;
Var x, y: Integer;
Function ReqSumm(a, b: Integer): Integer;
Begin
If (b = 0) then
                ReqSumm := a
            else
                ReqSumm := ReqSumm(a+1, b-1);
End;

Begin
Repeat
ClrScr;
Readln(x, y);
Writeln(ReqSumm(x,y));
Readkey;
Until False;
End.

program_6;
use crt;
function sum(a,b: integer): integer;
begin
   if b=0 then
     sum:=a
   else
   if b<0 then
     sum:=sum(a-1, b+1)
   else
     sum:=sum(a+1, b-1);
end;
var
   a,b,s: integer;
begin
   clrscr;
   write('a=');
   readln(a);
   write('b=');
   readln(b);
   s:=sum(a,b);
   writeln('a+b=',s);
   readln;
end.