Дано натуральное число n. Вычислить ln(2)*ln(4)*….*ln(2n)- Pascal(Паскаль)

var
i,n:integer;
f:real;
begin
writeln(' n: ');
readln(n);
f:=1;
for i:=1 to n do
f:=f*ln(2*i);
writeln('f=',f);
readln;
end.

{$N+}{для типа extended при больших N}
uses crt;
var n,i:integer;
    p:extended;
begin
clrscr;
write('n=');
readln(n);
i:=0;
p:=1;
while i<n do
 begin
  i:=i+1;
  p:=p*ln(2*i);
 end;
write('P=',p:0:2);
readln
end.