Анекдоты про кошелку

Дама едет в такси и около дома обнаруживает, что потеряла кошелек и говорит таксисту, что ей нечем расплатиться. Таксист молча разворачивается, едет в лес и расстилает на траве простыню.
- Что вы, у меня же трое детей - говорит дама.
- А у меня 40 кроликов! Рви траву и клади сюда.

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

Лучше всего деньги вкладывать в кошелек.

Объявление по радио в океанариуме: — Жену посетителя, уронившего в бассейн с акулами кошелек с пятьюстами долларами, срочно просят явиться за кошельком!