Найдите ошибку (Паскаль)
В задании нужно было найти сумму чисел e^1+e^2+...e^n

program upr1;
var i,n:integer;
e,s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
e:= power (e,i);
s:= s+e;
writeln (s);
end.

program upr1;var i,n:integer;s,exp,e: real;beginreadln (n);s:=0;exp:=e;begine:= power (e,i);for i:= 1 to n dos:= s+e;end;writeln (s);end.

Исправил, но кажется, опять не так

program upr1;var i,n:integer;s: real;beginreadln (n);s:=0;for i:= 1 to n dos:= s+exp(i);writeln (s);end.

Эм, а ты n вводишь? Или это константа, не описано ж значение

переменной е не задано начальное значение, есть функция еxp(x) возвращает е в степени х, а еще s:=s+e находится за пределами цикла хотя должна быть в нем.