Используя оператор выбора составить программы решения следующих . составьте программу, определяющую для буквы алфавита, является ли буква гласной или нет

Задаем набор гласных букв: a, e, i, o, u, y
Вводим букву.
Сравниваем ее с каждой буквой из набора.
Если совпадает, отвечаем: ДА
Если не совпало ни с одной, отвечаем: НЕТ.
Пример на бейсике
Sub Letter
Dim A(6) As String, S As String, i As Integer, F As Boolean
A(1) = "a": A(2) = "e": A(3) = "i": A(4) = "o": A(5) = "u": A(6) = "y"
Input S
F = False
For i = 1 To 6
     If S = A(i) Then F = True
Next i
If F = True Then Print "YES" Else Print "NO"
End