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

program zz1;

var x, n, i, k:integer; / / задаем переменные целого типа

y:real;

begin

write (' введите первое число x '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число N '); / / вводим с клавиатуры второе число

read (n);

k:=1; / / задаем начальное значение

for i:=1 to n do / / организуем цикл на N повторений

begin

k:=x*k;

y:=y + cos (k); / / вычисляем результат по формуле

end;

write (' Y = ', y:5:2); / / выводим ответ в формате пять знаков для числа и два знака после точки

end.