!> This file was processed by `fypp`. !> Today's fortune: "Bad WA", really OK? !> ランダムウォーク猿「'乱択' で はっぴー.」 !> ギャンブラー猿「流れが来てる...!」 program f902836 use, intrinsic :: iso_fortran_env !> auto use module implicit none integer(int32) :: n integer(int64), allocatable :: arr(:) integer(int32) :: i read(input_unit, *) n allocate(arr(n)) read(input_unit, *) arr(:) write(output_unit, '(a)') trim(merge("Yes", "No ", any(arr(:) == 0) .or. any(arr(:) == 1))) end program f902836