Sub DQXTER() Do k = CInt(InputBox("Введите возраст от 1 до 99")) Loop Until k >= 1 And k <= 99 Select Case k Case 11 To 14 MsgBox "Мне " + Str(k) + " лет" Case Else Select Case k Mod 10 Case 1 MsgBox "Мне " + Str(k) + " год" Case 2 To 4 MsgBox "Мне " + Str(k) + " года" Case Else MsgBox "Мне " + Str(k) + " лет" End Select End Select End Sub