program suite1 ; var n, nmax : integer ; u : real ;(déclaration des variables) begin nmax = int( 3 * ln(10) / ln(2) ) ; (int : conversion d'un real en integer) u := 2 ; (u0) for n := 1 to nmax do u := exp(u) / ( exp(2 * u) + 1 ) ; (u1, ..., unmax) writeln( u ) (unmax) end.
program suite2 ; var n : integer ; u : real ; begin u := 2 ; for n := 1 to 9 do u := exp(u) / ( exp(2 * u) + 1 ) writeln( u ) end.