uses crt;
var n,i:integer;
    s:extended;
function somu(x,n:integer):extended;
var tam:integer;
        begin
                somu:=1;
                for tam:=1 to n do
                somu:=somu*x;
        end;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+somu(n,i);
        write('TONG LA:',S:0:0);
        readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất.

uses crt;
var n,i,s,x,t,d: longint;
begin
 clrscr;
  write ('nhap n: ');   readln (n);
  write ('nhap x: ');   readln (x);
  for i:=1 to n do
   begin
    repeat
     x:=x*x;
     d:=d+1;
    until d=i;
    s:=s+x;
   end;
  writeln ('tong la: ',s);
 readln;
end.