Question

Cоставьте, пожалуйста, программу на паскале суммы ряда (далее вложение)

Answer 1

Var
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
    y:=y+1/(n+1);
WriteLn('y = ',y);
End.

Answer 2

cпасибо большое, нашла свою ошибку:))