real;
N, i: integer;
begin
Write('N='); Readln(N);E:=0; i:=0; a:=1;
while i<=N do
begin
E:=E+a;
i:=i+1;
a:=a/i
end;
Writeln('E=' , E)
end.
Program Summa_2;
Var E, a: real;
N, i: integer;
begin
Write('N='); Readln(N);
E:=0; i:=0; a:=1;
repeat
E:=E+a;
i:=i+1;
a:=a/i;
until i>N;
Writeln('E=', E)
end.