Процедура косвенной рекурсии

[DaoKemZem]

Добрый день. Меня попросили код с паскаля на Си перевести. Я в общем сделал, но надо сделать так, чтобы программа работала. Но что-то я забыл дополнить. Посмотрите пожалуйста на код и скажите, что я забыл, а лучше напишите. Буду очень признателен

#include<iostream>;

int A(int n);
int B(int n);

int A(int n)
{
	int s = 0;
	
	for (int j = 0; j < n; ++j)
		s += d[j];
	return B(n - 1) + s;
}

int B(int n)
{
	if (n <= 0) return 13;
	int  p = n - 1;
	return A(p) + p;
}

Сам код на паскале

function A( n: integer): integer;
var S, j: integer;
begin
S:=0;
for j:=1 to n do
S:=S+ D[j];
A:= B(n-1) + S;
end;
function B( n: integer): integer;
var P: integer;
begin
if n<=1 then B:=13
else
 begin
P:= n-1;
B:=A(P) + P;
 end;
end;

[Stilet]

// ff.cpp: определяет точку входа для консольного приложения.
//

#include "stdafx.h"
#include<iostream>;

int d[5]={1,2,3,4,5};

int B(int n);
int A(int n)
{
	int s = 0;
	
	for (int j = 0; j < n; ++j)
		s += d[j];
	return B(n - 1) + s;
};

int B(int n)
{
	if (n <= 0) return 13;
	int  p = n - 1;
	return A(p) + p;
}

int _tmain(int argc, _TCHAR* argv[])
{
	std::cout<<A(5);
	std::cin.get();
	return 0;
}

Результат - 39.