Cоздайте алгоритм и программу(на языке pascal) для нахождения суммы ряда: S=2x^1+3x^2+4x^3+5x^4....+20x^19

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.