Program Touche;
Var c : Char;
nature : String;
Begin
Writeln('Taper sur une touche');
Readln(c);
Case c of
'a'..'z','A'..'Z' : IF UPCASE(c) in ['A','E','I','U','O','Y']
Then nature := 'Voyelle'
Else nature := 'Consonne';
'0'..'9' : nature := 'Chiffre';
Else nature := 'Symbole';
End;
Writeln(nature);
End.