var
s, x:real;
i:integer;
begin
writeln('Введите x');
readln(x);
for i:=1 to 20 do
s:=s+((1+i)*exp(ln(x)*i));
writeln(s);
end.
var
s, x:real;
i:integer;
begin
writeln('Введите x');
readln(x);
for i:=1 to 20 do
s:=s+((1+i)*exp(ln(x)*i));
writeln(s);
end.