Даны натуральное число N и действительное число X. Вычислить:sin X + (sin X)^2 /2 + (sin X)^3 / 3 + … + (sin X)^N / N — Pascal(Паскаль)

Var j,n:integer;
x,s:real;
function summa(i:integer; Var y:real):real;
begin
summa:=(exp(i*ln(sin(y)))/i
end;
begin
s:=0;
writeln('vvedite n and x');
readln(n,x);
for j:=1 to n do
s:=s+summa(j,x);
writeln('s=', s:10:6)
end.

program zadach1;
var n, i: integer;
x, answer: real;
begin
  writeln('Vvedite X:');
  readln(x);
  writeln('Vvedite N:');
  readln(n);
  for i:=1 to N do
    answer:=answer + exp(sin(x)*ln(n))/n;
  writeln('Otvet: ', answer:0:3);
end.