Var
   y: real;
   x,n: integer;
Begin
   Writeln('n=');
   Readln(n);
   y:=0;
   x:=0;
        For x:=0 to n do
            begin
                y:=y+x/(x+2);
            end;
   Writeln(y:6:5);
end.

Пользователь Josy всё верно написал. Цикл заключается в том, что пошагово вместо числа n ты подставляешь любые числа (в данном случае натуральные). Получая для каждого n собственное y. Решая в Паскале, компьютер запросит тебя ввести любое число и вычислит Y. Удачи!