:Lbl 0 :ClrHome :Input M :M->A :Goto 2 :Lbl 1 :Disp 2 :Pause :A/2->A :If A=1 :Goto 9 :Lbl 2 :If fPart (A/2)=0 :Goto 1 :3->B :Lbl 3 :^A->C :Lbl 4 :If B>C :Goto 8 :If fPart (A/B)=0 :Goto 6 :Lbl 5 :B+2->B :Goto 4 :Lbl 6 :If A/B*B-A=0 :Goto 7 :Goto 5 :Lbl 7 :Disp B :Pause :A/B->A :Goto 3 :Lbl 8 :Disp A :Lbl 9 :Disp "FIN" :Pause :Goto 0-> = petite flèche (STO) * = multiplié par ^ = racine carrée de