Lời giải :
program hotrotinhoc ;
var t,s10: longint ;
i,j,x: integer;
begin
write('nhap gia tri cua x='); readln(x);
for i:=1 to 10 do
begin
t:=1;
for j:=1 to i do t:=t*x*x;
if i mod 2=0 then s10:=s10-t else s10:=s10+t;
end;
write('Ket qua: ',s10);
readln
end.