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

функция ВнутреннийКонтроль
начало
ЕСЛИ 2*2=4 ТО
ответ=разрешено
ИНАЧЕ
ответ=запрещено
конец