!> This file was processed by `fypp`. !> Today's fortune: "Happy TLE", really OK? !> ランダムウォーク猿「'Stern-Brocot木' で はっぴー.」 !> ギャンブラー猿「流れが来てる...!」 program f902945 use, intrinsic :: iso_fortran_env !> auto use module implicit none integer(int32) :: n 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