1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
var n,s,x,i:integer; begin s:=0; write('введите N') readln(x) ; for i=1 to n do begin write('введите x i' ); <------erorr string constsnt exceeds line readln(x); s:=exp(n*ln(x)) end; writeln('сума равна's); readln; end.