Процедурой:

// Возводит действилельное число 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.