Ответ:

...

for n:= 1 to 4 do

 for k:=1 to n do

    y = y + Power(2, k) * Factorial(n) / ((1 + n) * Factorial(k));

...

Объяснение:

Эт на Pascal ABC, наскок помню факториала нет, поэтому скорее всего над самому функцию реализовать.