составьте программу
дано натуральное n вычислить sin x +sin x^2+...sin x^n

var  x,xi,s:real;  i,n:integer;  begin  Write('Введите x и n: '); Read(x,n);  xi:=1; s:=0;  for i:=1 to n do begin    xi:=xi*x;    s:=s+Sin(xi)    end;  Writeln(s)end.ПримерВведите x и n: 1.43 10-0.669024246654944Во вложении - контрольное решение.