Написать программу для определения, является ли введённая буква русского алфавита гласной

Program prog;Uses crt;var s: char;beginclrscr;write('Letter: ');readln(s);case s of'ё', 'Ё','у','У','е','Е','ы','Ы','а','А','о', 'О','э','Э','я','Я','и','И','ю','Ю': writeln('Yes');else writeln('No');end;end.