function b(x:integer) : integer;
begin
b := a(x-1);
end;

function a(x:integer) : integer;
begin
a:=x+b(x);
end;