!> This file was processed by `fypp`. !> Today's fortune: "Bad AC", really OK? !> ランダムウォーク猿「'調和級数' で はっぴー.」 !> ギャンブラー猿「AtCoder はギャンブルだ.」 program f902945 use, intrinsic :: iso_fortran_env !> auto use module implicit none integer(int32) :: n integer(int32) :: i read(input_unit, *) n if (n <= 1984) then write(output_unit, '(a)') "None" else if (n < 2008) then write(output_unit, '(a)') "Namiki High School" else write(output_unit, '(a)') "Namiki Secondary School" end if end program f902945