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

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