1.написать программу для вычисления двойного факториала. 2) ввести натуральное n и вычислить сумму 1+1/2+1/3+1/4++1/n-1+1/n

Var
   F2:real;
   n,F:longint;
Begin
Write('n = ');ReadLn(n);
F:=1;
For n:= 1 to n do
    F:=F*n;
F2:=1;
For n:= 1 to F do
    F2:=F2*n;
WriteLn('n = 6.68950291344912E+198

Больше не выдержит вещественный тип.

Var
   S:real;
   N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
    S:=S+1/N;
WriteLn('S = ',S);
End.