PROGRAM ATCODER

implicit none
character :: c

read(*,*) c

if ( c == 'a' .or. c == 'e' .or. c == 'i' .or. c == 'o' .or. c == 'u' ) then
  write(*,'(a)') 'vowel'
else
  write(*,'(a)') 'consonant'
end if

contains
!!!!!! サブルーチンは↓
!!!!!!

END PROGRAM ATCODER
