Дано вещественное число a и целое число n (> 0). вывести 1 + a + a2 + a3 + + an.

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.