j'ai se program et je sais pas ou est mon erreur !!
je doi ecrire un program qui fait la moyenne de 3 nombre en utilisant la notion des function !!
program moyenne
implicit none

!Declaration
real::a,b,c

write(*,*)'Donner la valeur de :',a
read*,a
write(*,*)'Donner la valeur de :',b
read*,b
write(*,*)'Donner la valeur de :',c
read*,c

contains
!nom de la fonction
real function moy(x,y,z)
implicit none
!Declaration de la finction
real,intent(in):,y,z
moy=(x+y+z)/3;
return
!fin de la function
end function moy

!affichage

write(*,*)'la moyenne =',moy(a,b,c)

end program moyenne