Program Party⁠⁠

Program Paty;

Uses Vine, Zakus, Condoms;

{$I Varable.Pas}

{ Там еще есть описания переменных, процедур, модулей }

{ Vine, Zakus, Condoms и процедура Fack, но я их поскипал }

{ из за этических соображений. }

Procedure Repare;

Begin

Find (House);

Buy (Bottles);

Buy (Zakus);

Call (Friends);

Call (Girls);

End {Prepare}

Procedure Drinks;

Begin

Open (Bottles);

Drink (Next(Gramms*100))

Zakus := Eat (Next(Foods));

Until DubleViewInEyes;

End; {Drinks}

Procedure Dances;

Begin

Music := True;

Call (OneGirl);

Go (DancingRoom);

With Music.Jump Do Begin

If Girl (Drink)) > Normal (Drink) Then Begin

Toush (BackOfGirl);

Toush (BreastOfGirl);

End;

Else Begin

Go (DrinkingRoom);

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

Return (DancingRoom);

End;

End;

End; {Dances}

Begin {Party - Main Program}

Prepare;

Drinks;

Dances;

If Smb (Drink) - TooMush (Drink) Then Smb := FallOverDrinked;

Else Go (AtHome);

End. (Main Program)