Вычислить y=cosx+cosx^2+cosx^3++cosx^n

Program pr;
uses crt;

Var n,i:integer;
x,y:real;

Begin
Writeln('Введите x');
readln(x);
Writeln('Введите n');
readln(n);
y:=0;

for i:=1 to n do
y:=y+cos(power(x,i));

Writeln('y = ', y);
readln();
end.