Выдает ошибку program1.pas(5) : встречено 'to', а ожидался оператор посмотри , что не так в пятой строке. program n1; var e, a: real; n, i: integer; begin write('n='); readln(n); e: =1; to n do begin a: =a/i; e: =e+a end; writeln('e=', e) end.