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

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-число перед а.