Fonction nombre premier help !

bonjour,
j'ai un exercice qui demande de saisir un entier >5
et puis avec une fonction F1 déterminer s'il est premier (juste ça) et une procédure p1 qui permet de déterminer si'il est premier ou pas
voila mon programme qui affiche un message d'erreur :exe a cessé de fonctionner :'(
HELP SVP !!