Составить программу которая будет вычислять значение выражения у = cosx + cosx^2 + cosx^3 + ... + cosx^n, используя процедуру вычисляющую x в n степени

Процедурой:

/ / Возводит действилельное число x в целую степень n

Procedure Pow (Const X:real; Const n:integer; Var St:real);

Var i:integer;

Begin

St:=1;

For i: = 1 to n do

St:=St*x;

End;

Var

x, y, St:real;

n:integer;

Begin

y:=0;

Write ('x = '); ReadLn (x);

Write ('n = '); ReadLn (n);

For n: = 1 to n do

Begin

Pow (x, n, St);

y:=y+Cos (St);

End;

WriteLn ('y = ', y);

End.

Функцией:

/ / Возводит действилельное число x в целую степень n

Function Pow (Const X:real; Const n:integer) : real;

Var i:integer;

Begin

result:=1;

For i: = 1 to n do

result:=result*x;

End;

Var

x, y:real;

n:integer;

Begin

y:=0;

Write ('x = '); ReadLn (x);

Write ('n = '); ReadLn (n);

For n: = 1 to n do

y:=y+Cos (Pow (x, n));

WriteLn ('y = ', y);

End.

Циклом:

Var

x, y, St:real;

n:integer;

Begin

y:=0;

Write ('x = '); ReadLn (x);

Write ('n = '); ReadLn (n);

St:=1;

For n: = 1 to n do

Begin

St:=St*x;

y:=y+Cos (St);

End;

WriteLn ('y = ', y);

End.