Christmas Party dla informatyka

W liście stwierdzili Państwo, ze powinienem podać pełniejsze wyjaśnienie. Sadze, ze poniższe szczegóły będą wystarczające. Jestem z zawodu murarzem. W dniu wypadku pracowałem sam na dachu nowego, trzypiętrowego budynku...
Kiedy zakończyłem prace, stwierdziłem, ze mam ponad 150 kilogramów cegieł porozrzucanych wokoło. Zdecydowałem nie znosić ich na dół pojedynczo, lecz spuścić je na dół w beczce, używając liny na bloku przytwierdzonym do ściany na trzecim piętrze budynku.

8:03
Dzwoni telefon...
8:09
Zaczynam dochodzić do siebie. Gdzie jest kawa ?
8:20
Rano chyba ktoś dzwonił... Nieeeee, zdawało mi się.
8:32
Dzwoni telefon... No dobra. Idę. Cz0owiek z księgowości skarży się, że nie może ściągnąć informacji o wydatkach z bazy danych. Udzielam mu Standardowej Odpowiedzi Administratora Nr 112: "Dziwne. U mnie działa". Czekam chwilę aż się wykrzyczy i wyłączam expres do kawy z UPS-a, podłączając jego serwer. Mówię, żeby spróbował teraz. Dobrze jest. Jeszcze jeden zadowolony użytkownik.

Program Christmas Party;
Uses Vine, Zakus, Condoms;
{$I Variable.Pas}

Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Call(Friends);
Call(Girls);

End;{ Prepare }

Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=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(BrestOfGirl);
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,Brest,OtherPartsOfBody);
Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm;
Case HowMany of Inc(HowMany);
If (HowMany mod 15 = 0) then Write('YES ! You are BIG man !!!'); Until YourPenisStay; End;{ Fuck }

Begin {program Party - by Admin :-}
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

Następny