Да не суди меня строго модератор

[altvim]

Program Party;

Uses Vine, Food, Condoms;

{$I Variable.Pas}

Procedure Prepare;

Begin

Find(House);

Buy(Bottles);

Buy(Food);

Call(Friends);

Call(Girls);

End;{ Prepare }

Procedure Drinks;

Begin

Open(Bottles);

Repeat

Drink(Next(Gramms100));

Food:=Eat(Next(Foods));

Until TwoViewInEyes;

End;{ Drinks }

Procedure Dances;

Begin

Music:=True;

Call(OneGirl);

Go(DancingRoom);

With Music.Jump Do

Begin

If Girl(Drink)>Normal(Drink) Then

Begin

Touch(AssOfGirl);

Touch(BreastOfGirl);

End

Else

Begin

Go(DrinkingRoom);

Let`s(Girl):=Drinks(More);

Return(DancingRoom);

End;

End;

End;{ Dances }

Procedure Fuck( Who : Sex );

Var

HowMany: LongInt;

Begin

If WhoGirl Then Write('Are yor sodomite ??!');

Find(DarkRoom);

Close(Door_and_windows);

If Not Find(BedInRoom) Then BedInRoom:=AnyTable;

HowMany:=0;

Repeat

Call(Next(Who));

Delete(DressOf(Who));

Kiss(Lips,Breast,OtherPartsOfBody);

Repeat

Asm

PUSH YourPenis

POP? YourPenis

End;

Until YouHaveOrgasm;

Case HowMany of Inc(HowMany);

If (HowMany mod 15 = 0) Then Write('You are BIG man !!!');

Until YourPenisStay;

End;{ Fuck }

Begin { Party - Main Program }

Prepare;

Drinks;

If Who(Drink)>Normal(Drink) Then Who:=FaceDown;

Dances;

Fuck(Girls);

Go(AtHomes);

End.{ Main Program }

[MaSteR]

Нехилая программка.

Приступаю к компеляции и исполнению. :)

[dartman]

СУПЕР!!!!!

[Kuzmich]

Интересная вариация Pascal-я... :)

[Посторонним В.]

Неплохо :)

Только по моему с разделом ошиблись, ее бы в юмор надо.

P.S. Может попробовать перевести ее на C++

:)

[altvim]

Посторонним В.

В том-то и прикол, 1-е апреля типа... :)

Ещё бы вариацию ассемблера увидеть, но это только после нескольких ящиков водки :)

[Гость weiter]

Прочитал я это дело и...............(честное пионерское)

repeat

Program Party;

до сих пор бодяжим......

[man2D]

Ну ты просто куль-кодер... Уже компилил? B)

[Гость 7 vad]

print "Content-Type: text/html\n\n";

$message = "это не плохо<br>";

print "$message";

print "модератор тебя не тронет<br>";

print "это всё";