Выдает ошибку 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; To N Do
Begin
a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.