Создайте программу для нахождения суммы ряда: 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.

Program z1; var mas: array[1..100] of integer; i,a,b,c,n,min: integer; begin a: =0; min: =1000; c: =0; writeln('введите количество элементов массива'); readln(n); writeln('введите элементы массива'); for i: =1 to n do begin read(mas[i]); if mas[i]> 0 then a: =a+mas[i]; if mas[i]< min then begin min: =mas[i]; b: =i; end; if mas[i] mod 5=0 then c: =c+1; end; writeln('сумма положительных элементов массива равна  ',a); writeln('номер наименьшего элемента массива равен  ',b); writeln('количество элементов массива, кратных пяти, равно ',c); end.

//pascalabc var       a, b, c, p, s : real; begin       write('введите длину стороны a> ');       readln(a);       write('введите длину стороны b> ');       readln(b);       write('введите длину стороны c> ');       readln(c);       writeln('вычисление по формуле герона');       p : = (a + b + c) / 2;       s : = sqrt(p * (p - a) * (p - b) * (p - c));       writeln('площадь треугольника s = ', s); end.