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

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