Напишите плез программу) sin(x)+sin(x^2)++sin(x^n) x=5 n=20

Var x,xn,s:real; i,n:integer;
begin
x:=5; n:=20;
s:=0;
xn:=1;
for i:=1 to n do
 begin
 xn:=x*xn;
 s:=s+sin(xn);
 end;
writeln('s = ',s:5:3);
end.

Результат:
s = -3.826