Clear[a, b, i] a = 1 b = 0 i = 0 Do[b = (a + 1/a^3); Print[b] // Simplify; a = b; If[a > 2.5, Break[]]; i = i + 1;, {10}] Print["Pocet prvkov je ", i]