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

Задаем набор гласных букв: 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