Составьте программу вычисления суммы

for i:=1 to n do s:=s+i*a; Сумматор s необходимо обнулить перед началом цикла, все переменные объявить и записать цикл выше. Программа на паскале: var a,n,I:integer; begin writeln('Введите число n и число a'); readln(n,a); s:=0; for I:=1 to n do s:=s+i*a; writeln('Сумма равна ',s); end. n-число перед а.