Уж лучше зохавать свой паспорт!

Содержание:
1 Для кого?
2 Осторожно!
3 Краткий экскурс!
4 Шайтан-программа v.666.01.06
5 См. также

Для кого?

Данное полное и исчерпывающее руководство содержит линейный алгоритм с ветвлениями, который позволит вам навсегда забыть об одиночестве, угрызениях совести о бесцельно прожитой жизни, о Благах информационного пространства. Кроме того, руководство поможет, в случае, если вы Топ-манагер, но ваша фантазия не позволяет грамотно распорядиться капиталом, если вы обладаете неисчерпаемым запасом свободного времени, или вас просто замучал cпермотоксикоз или С++. Все просто! Вам срочно нужно жениться!
Осторожно!

Перед просмотром дальнейшей информации строго рекомендуется провериться у кардиолога, окулиста, психотерапевта и личного патологоанатома, попросить прощения у ваших друзей и близких (вероятно вы их больше не увидите), убедиться в наличии суммы в 54 308 428 790 203 478 762 340 052 723 346 983 453 487 023 489 987 231 275 412 390 872 348 475$ на счету в швейцарском банке и 99,9 % свободного времени. Кроме того руководство не рекомендуется читать членам банды Элтона Джона.

1. Для хороший женитьбы неплохо бы иметь т. н. вторую половинку. Первую зохавал Ктулху.

2. К сожалению, необходимо завести знакомство с этой самой второй половинкой. Чаще всего это женщина. Если вдруг для вас это не женщина — срочно покиньте эту страницу. Элтон Джон будет вами не доволен.

3. Далее следует самая муторная фаза — Любовь
3.1. Первое и последующие свидания
3.2. Первый и последующие поцелуи
3.3. Первый и последующий секс
3.4. Разочарование в п.1 (в п.3.3. — последний секс, но телефон на всякий случай надо обязательно оставить)

4. Возвращение п.2 и так до тех пор, пока не удовлетворит условие 3.3.

5. При удовлетворении во всем можно переходить к следующей стадии — дорогие подарки и самоотверженное ухаживание.
5.1. поход в кино
5 2. поход в театр
5.3. Зациклить п 5.1 и п.5.2 несколько раз

6. Поход в ресторан

7. Необходимо выполнить такую формальность как «сделать предложение». Делать его необходимо из буковок, словечек и пауз. Скрасить все глазами, полными любви и преданности.

8. Встать на одно колено, вытянуть правую руку и подарить колечко со словами, составленными в предыдущем пункте. Обычно это: «Что сегодня на ужин, а, жена?»

9. Радоваться.

10. Зациклить п.3.3

11. Умереть

12. Быть з0хаваным сами знаете кем.


Шайтан-программа v.666.01.06

Uses:
Flowers, Love_Messages, Sweets, Drinks, Rings, Restaurants;
type
TYou = class(Logic_Object)
Face: TFace;
Money: TResources;
Car: TResources;
Flat: TResources;
Work_Place: TResources;
end;
TWife = class(UnLogic_Object)
Mordrashka: TFace;
Buffer: TBuffer;
Popka: TForms;
Ruchka: TForms;

Function Meet(Sender: UnLogic_Object);
Function Speek(Sender: Logic_Object);
end;
var
You: TYou;
Best_World_Girl: TWife;
Your_Friends: TYou;

implementation


procedure You.Meet(Sender: Best_World_Girl);
var i,k: integer;

begin
k:=1;
for i:= 1 to Sender.Buffer do inc(k);
for i:= 1 to Sender.Buffer do dec(k);
for i:= 1 to Sender.Buffer do inc(k);
{взвесили все факты и подумали..}
if k<3 then exit; //..что фактов недостаточно
if GetTime.Hours>8 then exit; //..что мама будет ругаться
if not near(self,sender) then exit;//..что долго думали
raise Exception.create('прошивка закончилась');
end;

end.