С! ! 23 ! дано вещественное число a и целое число n. используя один цикл, найти сумму чисел 1+a+2a+ n*a. (использовать можно любой цикл)

Program n1;
var n,i :integer; a,s:real;
begin
s:=0;
writeln('целое число N=?');
read (n);
writeln ('число а?');
read(a);
for i:=1 to n do
s:=s+i*a;
writeln('сумма=',s)
end.