Функция Загрызли(Буратино)
    СлучайноТакВышло		= Новый ГенераторСлучайныхЧисел(); 
    Бобры.Грызли		= СлучайноТакВышло.СлучайноеЧисло();
    Буратино.БерёзовыйСок	= СлучайноТакВышло.СлучайноеЧисло();
    Буратино.ПокрытиеСоком	= 0;
    Пока Бобры.Грызли <= Буратино.БерёзовыйСок Цикл
	Буратино.БерёзовыйСок = Буратино.БерёзовыйСок - Бобры.Грызли;
	Буратино.ПокрытиеСоком = Буратино.ПокрытиеСоком + Бобры.Грызли;
    КонецЦикла;
    Возврат Буратино;
КонецФункции // Загрызли(Буратино)

Функция РукиРаскинуты(Буратино)
    Возврат Буратино.ПокрытиеСоком > 0;
КонецФункции // РукиРаскинуты(Буратино)

Функция ДятлыКружатНад(Буратино)
    Возврат РукиРаскинуты(Буратино);
КонецФункции // ДятлыКружатНад(Буратино)