Coresspondance des signes: <> -> n'est pas egale / -> diviser "Votre nombre"?->A {1,A}->Dim Mat A For 1->N To A-1 If A/N=Int (A/N) Then A->Mat A[1,N] IfEnd Next 0->C For 1->B To A-1 C+Mat A[1,B]->C Next If C=A Then Locate 5,2,"est un" Else Locate 5,2,"n'est pas" IfEnd Locate 1,3,"un nombre premier" Do:LpWhile Getkey<>31 Return