Bonjour , svp j'aimerais que vous m'aidiez a trouver l'erreur qu'il y'a sur ce programme (calcul de la racine carré)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program racine_carré
implicit none
interger :: i, nrac
real :: valeur, racine
nrac = 3
do i = 1, nrac
print*, "donner un nombre"
read*, valeur
if (valeur >=0) then
    racine = sqrt (valeur)
print*, "le nombre", valeur "a pour racine", racine
else
print* "le nombre", valeur "ne possede pas de racine"
end if
end do
print*, "travail terminer aurevoir"
end program racine_carré
en effet quand je prend
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 pour i allant de 1 a nrac (nombre de racine)
c'est dans le dans le but que le programme puisse calculer 3 racine pour 3 nombre données.