выдает ошибку 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.

program n1;Var E, a: Real; N, i: Integer; Begin Write('N='); ReadLn(N); E:=1;For i:=1 To N DoBegin a:=a/i; E:=E+a End; WriteLn('E=', E) End.