Delphi -> C++

[VadEr]

Добрый день!

Помогите перевести на С++:

var
exp,res,tchk:real;
n:integer;
function factorial(n: integer): integer;
begin
    if n > 1
       then factorial := n * factorial(n-1)
       else factorial:= 1;
end;
begin
read(exp,tchk);
res:=0;
while res>exp do
begin
Inc(n);
if (n mod 2 = 0) then
   res := res+power(2*n,x)/factorial(n)
else res := res-power(2*n,x)/factorial(n);
exp := exp+tchk;
end;