Salut tout le monde, vs pouvez m'aider en traduisons ceci en c++

program racine_polynome;
var
n:integer;
a : array[0..100] of real;
b,c, eps: real;
procedure saisie;
var
i: integer;

BEGIN
write('donner n:');
readln(n);
for i:= 0 to n do
begin
write('a',i,':');
readln(a[i]);
end;
END;
function Horner(Z:real):real;
var
k: integer;
P: real;
BEGIN
P:= a[n];
for k:=1 to n do
begin
P:= P * Z + a[n-k];
Horner := P;
end;
END;

function Dichotomie : real;
var
m: real;
begin
while (c - b)>= eps do
begin
m:= (b+c)/ 2;
if ( Horner(b)*Horner(m)) > 0 then
c:= m
else
b:= m;
end;
Dichotomie := m;
end;
{main}
begin
saisie;
write('donner b:');
readln (b);
write('donner c:');
readln(c);
write('donner eps:');
readln(eps);
writeln('la solution est:',Dichotomie );
readln();
END.


NB : Cette programme fonctionne bien en PASCAL mais en c++, j'ai encore beaucoup de difficulté