PROGRAM EREIHE(OUTPUT);

  CONST EPSILON=5.0E-11;

  VAR   N: INTEGER;
        GLIED, SUMME: REAL;

BEGIN
    N := 0;
    GLIED := 1;
    SUMME := GLIED;
    REPEAT
        N := N + 1;
        GLIED := GLIED/N;
        SUMME := SUMME + GLIED
    UNTIL GLIED<EPSILON;
    WRITELN("E=", SUMME)
END.