program carre ! calcul du carre de trois nombres en fortran ! verison avec invite sur la sortie d'erreur standard implicit none real, dimension(3) :: a, a2 write(0, *) "saisir 3 nombres (flottants)" ! invite read(*,*) a(:) ! lecture a2(:) = a(:) * a(:) ! calcul write(*,*) a(:) ! affichage write(*,*) a2(:) ! affichage end program carre