[nosmile]Le code de pokito sans les erreurs:

:Local a 
:Local k 
:Local n 
:
:Prompt n 
:
:For k,1,n
:n/k->a
:
:If int(a) = a Then 
:Disp a 
:EndIf 
:EndFor

(J'ai aussi supprimé le step ,1 pour le For parce que c'est le step par défaut de toute façon.)