$vowels ="аеёиоуыэюя"
$consonants = "бвгджзйклмнпрстфхцчшщъь"
Local $word = ""
for $i = 0 to 15
$select = Random(0,1,1)
if ($select = 0) then
$a = Random(0,StringLen($vowels))
$word = $word & StringMid($vowels,$a,1 )
else
$b = Random(0,StringLen($consonants))
$word = $word & StringMid($consonants,$b,1 )
endif
next

msgbox(0,"Случайное кириллическое слово",$word)