var integer begin write введите readln for to do begin write введите -

 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.