Lbl 1 ClrHome Disp "DIVISION RESTE" Disp "--------------" Disp "" Disp "DIVISEUR =" Input A Disp "DIVIDENDE =" Input B A/B->C ClrHome iPart(C)->E (C-E)*B->R Disp "RESULTAT =" Disp E Disp "RESTE =" Disp R Pause ClrHome Output(1,1,"