Создайте программу для нахождения суммы ряда: s=2x^1+3x^2+4x^3+5x^4++20x^19 pascalabc.

Var
a,s,i:integer;
begin
  s:=0; a:=1;
      for i:=1 to 19 do begin
       s:=s+inc(i)^a;
       inc(a);
      end;
writeln(s);
end.