1, Вицове за Поручик Ржевски [05.02.02; Radostina Georgieva]
 2. Program Party [06.02.02; Nikolay Bankov]

Вицове за Поручик Ржевски

Поручик Ржевски прочел книга за това как трябва да се разговаря с жените. Там имало и примерни теми за разговор: за животните, за времето, за музика, за любов. Решил той да опита  и отишъл при една дама и казал:
- Какво хубаво кученце имате, мадам! - и го сритал с ботуша си - Лети ниско, сигурно ще вали. У дома имам един барабан, не искате ли да ходим да се чукаме?

***

Поручик Ржевски стои на един бал сам до стената. До него се
доближава Наташа и му казва:
- Да, и на мен ми са ми омръзнали тези скучни балове с целия
им фалш и лицемерие.
Поручикът отговаря:
- Ами аз само чакам да свършат танците и да започне ебането.

Program Party 

Program 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;
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('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 }