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.