Bienvouloir m'aider a corrigé ce programme qui devrait calculer la racine carré d'un nombre

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
18
19
20
21
22
23
program racine_caree
 
implicit none
 
real :: valeur, racine
 
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 program racine_caree