program carre ! calcul du carre de trois nombres en fortran implicit none real, dimension(3) :: a, a2 read(*,*) a(:) ! lecture a2(:) = a(:) * a(:) ! calcul write(*,*) a2(:) ! affichage end program carre