{* Задача33 *}

REM basic

' Определить, является ли вторая буква в слове гласной или нет.


Dim S As String, Sh As String
  CLS
 
INPUT "Vvedite slovo : ", S
If LEN(S) < 2 Then PRINT "Slishkom korotkoe!": End
  
  Sh = "aeiou"
  For i = 1 To 5
    If LCASE$(Mid$(S, 2, 1)) = Mid$(Sh, i, 1) Then Gl = 1
  Next
 
If Gl = 1 Then PRINT "Glasnaya" Else PRINT "Soglasnaya"
End