Đề sai vì 2 biến không thể trùng nhau được, mình xin phép sửa lại:
Viết chương trình tính tổng : S=x+x^2+.....+x^n
____________________________________
Program baitap;
Uses crt;
Var n,i,x:integer;
S:extended;
Begin
Clrscr;
Write('x='); Readln(x);
Write('n='); Readln(n);
S:=x;
For i:=2 to n do
Begin
x:=x*x;
S:=S+x;
End;
Writeln('S=',S);
Readln
End.