Перевод кода из Pascal в C++

[Nurlan97]

Народ,помогите перевести коды(могут быть ошибки) для данных из паскаля в С++
Задача:
Даны натуральное число n, действительные числа a1,...,an. Вычислить обратную величину произведения тех членов ai последовательности a1,..., an, для которых выполнено i+1<ai<i!

Код :

uses crt;
var i,n: integer;
a: array [1..100] of real;
p: real;
function f(n:integer): integer;
var i,r: integer;
begin
r:=1;
for i:=1 to n do
r:=r*i;
f:=r;
end;

begin
clrscr;
write('n: ');
p:=1;
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-0.55;
write(a[i]:7:3);
end;
for i:=1 to n do
if (a[i]>i+1)and(a[i]<f(i)) then
p:=p*a[i];
writeln;
writeln('Произведение: ',1/p:5:4);
readln;
end.

[Vanta11a]

А в чем проблема? Что сами сделали? Что не получается?

p.s. если скажете, что "не получается ничего" - идите нафиг во фриланс