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