programmation calculatrice

Bonjour, je voudrai créer un programme permettant de vérifier si un nombre est premier ou pas (c'est-à-dire s'il n'est divisible que par lui-même et par 1 ou par d'autres nombres).

Voici mon algo :

lire n
k:=2
tant que k^2<=n faire
si k/n
imprimer : n est non premier
sinon
k:=k+1
imprimer : n est premier
fin du si
fin du tant

Voici ce que j'ai programmé sur la Voyage 200

nombprem(n)
Prgm
Local k
2->k
While k^2<=n
If k/n=true Then
Disp « le nombre n'est pas premier »
Else
k+1->k
Disp « le nombre est premier »
EndIf
EndWhile
EndPrgm

Lorsque je l'exécute, il m'affiche toujours que le nombre est premier ce qui n'est pas toujours le cas.
Pouvez-vous m'aider?
Je vous en remercie d'avance.