program summa;
var
x, i, n : integer;
s:real;
begin
s:=0;
writeln('Введите x');
read(x);
writeln('Введите n');
read(n);
for i:=1 to n do
s:=s+2*i/exp(log(x)*2*i);
writeln('значение выражения: ',s:0:2);
end.
program summa;
var
x, i, n : integer;
s:real;
begin
s:=0;
writeln('Введите x');
read(x);
writeln('Введите n');
read(n);
for i:=1 to n do
s:=s+2*i/exp(log(x)*2*i);
writeln('значение выражения: ',s:0:2);
end.