Написать на паскале программку . Задано натуральное число 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.