implicit none
integer (8):: a,b,c
character(1) :: s
read(*,*) s

if (s=="a" .or.  s=="i" .or.  s=="u" .or.  s=="e" .or.  s=="o" ) then
    write(*,*) "vowel"
else
    write(*,*) "consonant"    
endif
end
