program main
character::name*10
write(*,*)"What's your name?"
read(*,*)name
write(*,*)"Hello ",name
end program  main