Question

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

Answer 1

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