var
A, Summ:real;
N, i:integer;
begin
Summ := 1;
write('a = '); readln(a);
write('n = '); readln(n);
for i := 1 to n do
Summ := Summ + A * i;
writeln('Summ = ', Summ);
end.
