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

Var y,k,x:real;
n,i:integer;
begin
readln(x);
readln(n);
y:=0;k:=1;
for i:=1 to n do begin
k:=(sin(x))*k;
y:=y+k;
end;
writeln(y);
end.