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

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.