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