Найти сумму вида 1/2+1/4+1/ n раз? вывести на экран слово "" n раз в , не понимаю 15

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

Var
N:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
    WriteLn('привет')
End.