program hello
character::name*10
write(*,*)'What is your name?'
read(*,*)name
write(*,*)'Hello ',name
end program