program main implicit none integer :: n, h integer, allocatable :: t(:) read *, n, h allocate (t(n)) read *, t print '(*(I0, " "))', t+h end program main