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