На информационном ресурсе применяются cookie-файлы. Оставаясь на сайте, вы подтверждаете свое согласие на их использование.
язык программирования :)
5126
7
Baal
veteran
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 [censored]( 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;{ [censored] }
Begin { Party - Main Program }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
[censored](Girls);
Go(AtHomes);
End.{ Main Program }


взято отсюда
Лучше бы ты просто ссылку кинул, или бы отступов сделал, ибо известно, что "код программы читается лучше, если соблюдать глубину в условиях и циклах".
Как это так?
Ввел ровно 13 символов и все заработало
Тег "code" для того и введен.


я делал копировать-вставить с той странички ... предварительный просмотр показывает без отступов ... почему ?
Хех... Основы ХТМЛ - если нет специального тега преформатирования, то из любого количества пробелов сделается один

Сейчас читают
нас опять выгнали
31052
224
Стоимость перелета (часть 2)
1880420
924
компромат, блин..
5361
64
Сначала программку поправь - не откомпилится в таком виде 
