implicit none
character*30 :: nom

print *,'Comment tu t appelles?'

read *, nom

print *, 'Bonjour ',nom



end
