program t9000
    implicit none
    character::a*100
    read(*,*)a
    write(*,*)"Hello World!"
end program t9000