program lab32;
function power(i:word;x:real):real;
var
k:byte;p:real;
begin
p:=x;
for k:=1 to i do p:=p*x;
power:=p;
end;
function power2(i:word):longint;
var
n:byte;
p:longint;
begin
p:=2;
for n:=1 to i do p:=p*2;
power2:=p
end;
VAR
N,I:BYTE;S,X:REAL;
BEGIN
WRITE('ВЫЧИСЛЕНИЕ СУММЫ ПОСЛЕДОВАТЕЛЬНОСТИ ЭЛЕМЕНТОВ,ГДЕ КАЖДИЙ ЭЛЕМЕНТ ЗАДАН ФОРМУЛОЙ:');
WRITELN('E=X^N/2^N; Е-ЭЛЕМЕНТ ПОСЛЕДОВАТЕЛЬНОСТИ,N=ПОРЯДКОВОМУ НОМЕРУ ЭЛЕМЕНТА, X-ЛЮБОЕ ЧИСЛО.');
WRITELN('ВВЕДИТЕ ЗНАЧЕНИЯ:');
WRITE('N=');
READLN(N);
WRITE('X=');
READLN(X);
I:=1;S:=0;
WHILE I<=N DO
begin
S:=S+POWER(I,X)/POWER2(I);
I:=I+1;
end;
WRITELN('СУММА РАВНА-',S)
END.
