Вычислить 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.

Смотрите в строчке под номером 4 
z:=-1; z становится отрицательным
Потом его пустили по циклу, в первом круге цикла этот же z (z:=z;) становится с противоположным знаком(z:=-(-1);) Тоесть сначала выполняется действие добавления(+), в следующем кругу уже положительному z меняют знак на противоположный, и z опять у нас
с "-" и так k раз.

Вроде понятно обьяснил, ну если что обращайтесь.

А) в Корзину и очищать корзину так места будет больше

1) 204800 бит
2) 16 бит