Pascal. Цикл с параметрами

Question

Pascal. Цикл с параметрами

---

Comments

Функцию power для возведения в степень использовать можно?

---

Нужно

Answer 1

Var X,y:real;
n:integer;
Begin
Write('X = ');ReadLn(X);
y:=0;
For n:=1 to 10 do
   y:=y+Power(X,n)/(n*Power(2,n));
WriteLn('y = ',y);
End.