помогите решить задачу турбо паскаль

Question

можете помочь с другой задачей дается число Х 
 
и число N тоесть до какой степени нужно подвести число тоесть 
 
Х + Х^2 +X^3 +X^4...+X^n 
 
найти s:= Х + Х^2 +X^3 +X^4...+X^n 
 
тоесть х=4 n=8 
 
4+4(в квадрвте)+4(вкубе) ...+4^8

Марина . · Accepted Answer

Тебе ещё вчера в трёх ветках с этим вопросом ответ давали!

Игорь Руссков · Answer

Вот, например. Работает только с натуральными n. 
var 
x, y, s : real; 
k, n : integer; 
begin 
write('x='); readln(x); 
write('n='); readln(n); 
y:=1; s:=0; 
for k:=1 to n do begin 
y:=y*x; 
s:=s+y; 
end; 
writeln('s=',s); 
end.