ребята, Пожалуйста посчитайте с информатикой, 10 класс. вычислите сумму первых n элементов​

program srne;

uses

crt;

var

i, n: integer;

var

s: real;

begin

s := 0;

writeln('Введите n:');

readln(n);

for i := 1 to n do

if odd(i) then

s := s + (1 / i)

else

s := s - (1 / i);

writeln('Сумма первых n членов равна: ', s);

readln;

end.