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

program zz1;
var
i, n:integer; // задаем переменные целого типа
s:real; // задаем переменную не целого типа
begin
write( введите до какого n считаем сумму ряда );
read(n); // вводим с клавиатуры n
s:=1;  // задаем изначальное значение суммы ряда
for i:=1 to n do // организуем цикл до числа n
begin
if i mod 2 = 1 then s:=s+i/(i+1) // проверяем, если параметр цикла четный, то добавляем часть ряда
else s:=s-i/(i+1); // если не четный, то вычитаем часть ряда
end;
writeln( приобретенная сумма ряда = , s); // выводим ответ
end.