Написать на паскале программу. Задано натуральное число n. Вычислить сумму ряда : S=1-1/2+1/3-1/4+1/5 ... + -1/n

program zz1;

var n, i:integer; / / задаем переменные целого типа

d1:real; / / задаем переменную не целого типа

begin

write (' введите заданное число n '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все числа от 1 до n

if i mod 2 = 1 / / проверяем условие, если знаменатель элемента ряда нечетный, то

then d1:=d1 + 1/i / / прибавляем элемент ряда к сумме

else d1:=d1 - 1/i; / / иначе, вычитаем элемент ряда из суммы

writeln (' найденная сумма ряда = ', d1); / / выводим ответ

end.