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

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.