Erreur de Typage ADA

Bonjour à tous ,

Je suis débutant en programmation ada, je suis en auto-formation , je viens d'écrire un programme qui lit un entier et dit cet entier est premier ou pas?
Seulement à la compilation j'obtiens que vous trouverez plus bas .
Merci de bien vouloir m'aidez , car j'ai parcouru le passage types du manuel de Barnes (ADA 95 ) .Mais ça n'a pas marché.
Merci d'avance.
Voici le programme en question.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

---------------------------------------------------------------------- with ada.text_io , ada.Integer_text_io , Ada.Numerics.Elementary_Functions ;     use ada.text_io , ada.Integer_text_io , Ada.Numerics.Elementary_Functions ;         PROCEDURE N_premier IS     n ,d: Integer ;   BEGIN   WHILE ( n < 3 ) LOOP   put("Saisissez un entier au moins 3." ) ;   get (n) ;   END LOOP;   d:= 2 ;   WHILE (n MOD d AND d <= sqrt(n) ) LOOP       d:=d+1 ;   END LOOP ;   IF (n MOD d) THEN   put( n ) ; put("n'est pas premier.") ;   ELSE put( n ) ; put("est premier.") ;     END IF ;     END N_premier;   ----------------------------------------------------------------------

---

A la compilation j'obtiens.
gnatmake N_premier.adb

gcc -c N_premier.adb

N_premier.adb:15:12: warning: file name does not match unit name, should be "n_premier.adb"

N_premier.adb:32:26: expected type "Standard.Boolean"
N_premier.adb:32:26: found type "Standard.Integer"
N_premier.adb:32:48: expected type "Standard.Float"
N_premier.adb:32:48: found type "Standard.Integer"

N_premier.adb:40:30: expected a boolean type
N_premier.adb:40:30: found type "Standard.Integer"
gnatmake: "N_premier.adb" compilation error;)

Bonjour,
un des gros avantages du compilateur Ada est qu'il te donne plein d'informations. Lis-les bien et tu comprendras ce qu'il attend.
Ta première erreur vient du fait que dans une boucle While, on attend une condition et une condition est toujours une expression booléenne.
Dans ton cas, je doute énormément que le résultat de l'opération

Code:

---

n MOD d

---

soit de ce type.
Deuxième problème sur la même ligne. Relis là et tu verras que le retour de sqrt n'est pas un entier mais un flottant. En conclusion, ta comparaison n'est pas autorisée sans faire un transtypage ce que je te déconseille au passage. Il y a une autre solution.
Enfin, la dernière erreur est du même acabit puisqu'il s'agit d'un if et donc d'une condition booléenne.