Pascal ABC.NET

[gogomon93]

Нужно написать программу в паскале с использованием одного цикла for
задача: 1+A+A^2+A^3+...+A^n
т.е. найти сумму при заданых A и n. Помогите разобраться!!!

[Mad_Cat]

s:=1;p:=1;
for i:=1 to n do
begin 
p:=p*a;
s:=s+p;
end;

[gogomon93]

Спасибо,работает корректно)))

[Lev39]

Как перевести строковую величину в целую в Pascal ABC NET ?

[ZX Spectrum-128]

Var
S:string;
I:integer;
...

I:=StrToInt(s);