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