Algo#1

Lbl BA
EffEcr
Prompt A
Prompt B
If B<A                  // Si B<A ça relance le programme depuis le début (Goto BA => Lbl BA)
Then
Goto BA
End
Prompt L
While B-A>L
(A+B)/2->P              // -> c'est "sto"
If P^3<5
Then
P->A
Else
P->B
End
End
EffEcr
Disp "A=",A
Disp "B=",B