"CODE" 32010;
"REAL""PROCEDURE" EULER(AI, I, EPS, TIM);
"VALUE" EPS, TIM; "INTEGER" I, TIM; "REAL" AI, EPS;
"BEGIN""INTEGER" K, N, T; "REAL" MN, MP, DS, SUM; "ARRAY" M[0:15];
    N:= T:= 0; I:= 0; M[0]:= AI; SUM:= M[0] / 2;
NEXT TERM: I:= I + 1; MN:= AI;
    "FOR" K:= 0 "STEP" 1 "UNTIL" N "DO"
    "BEGIN" MP:= (MN + M[K]) / 2; M[K]:= MN; MN:= MP "END";
    "IF" ABS(MN) < ABS(M[N]) & N < 15 "THEN"
    "BEGIN" DS:= MN / 2; N:= N + 1; M[N]:= MN "END" "ELSE" DS:= MN;
    SUM:= SUM + DS; T:= "IF" ABS(DS) < EPS "THEN" T + 1 "ELSE" 0;
    "IF" T < TIM "THEN" "GO TO" NEXT TERM;
    EULER:= SUM
"END" EULER;
        "EOP"