Ответ:

• begin
•  var S : real;
•  var n := ReadInteger('Введите n:');
•  for var i := 1 to n do
•    S += sin(n**i);
•  Write(S)    
• end.