ПОКА ФлагПолныйЖивотвранье И Внут...

ПОКА Флаг_ПолныйЖивот=вранье И ВнутреннийКонтроль=разрешено начало цикла
Кошелек.Открыть;
ЕСЛИ Кошелек.СуммаНаличности>=Пиво[Клинское.Аррива].Стоимость*2 ТО начало
Кошелек.ПоложитьДеньги(Продавец.Купить(Пиво[Клинское.Аррива],
Кошелек.ВзятьДеньги(Пиво[Клинское.Аррива].Стоимость));
ВыпитьСДругомПоКружкеПива(Пиво[Клинское.Аррива]); конец
ИНАЧЕ
ЕСЛИ Друг.Кошелек.Сумма>0 ТО
Кошелек.ПоложитьДеньги(Друг.ЗанятьДеньги(Пиво[Клинское.Аррива].Стоимость*2);
ЕСЛИ Живот.ОпределитьКоличествоПива()>=Живот.Вместимость*0,9 ТО начало
Флаг_ПолныйЖивот=правда;
ПОПРОБОВАТЬ
СходитьВТуалет;
УСПЕШНО
Флаг_ПолныйЖивот=вранье;
КОНЕЦ конец; конец цикла функция ВнутреннийКонтроль начало
ЕСЛИ 2*2=4 ТО ответ=разрешено
ИНАЧЕ ответ=запрещено конец