Вводится натуральное n и действительное x. найти y=sin(x)+sin(x^2)+sin(x^3)+sin(x^n) . написать программу для турбо паскаля

{ Borland Pascal 7.01 }
uses Crt;
var
  i,n:integer;
  x,xp,y:real;
begin
  ClrScr;
  Write('n='); Read(n);
  Write('x='); Read(x);
  xp:=1; y:=0;
  for i:=1 to n do begin xp:=xp*x; y:=y+sin(xp) end;
  Writeln('y=',y);
  ReadKey
end.

Тестовое решение:
n=8
x=1.535
y= 2.2418218291E+00