Дано вещественное число А и целое число N (>O) используя один цикл найти сумму. 1+ А+ А ( в кд.) + А (в кубе) + .

program summ;

var A, S, P: real;

N: integer;

begin

writeln(\'Введите вещественное число А: \');

readln(A);

writeln(\'Введите целое число N: \');

readln(N);

S:= 1;

P:= 1;

for i:integer:= 1 to N do

begin

P:= P * A;

S:= S + P;

end;

writeln(\'Cумма степеней числа А: \', s)

end.