Найдите ошибку (паскаль) в нужно было найти сумму чисел e^1+e^2+ 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.

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

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