Срез РЕСПЕКТ... наш чувак
(даешь Паскаль в массы!)
Даю свою версию на Си++ 8) 8) 8)
char Любовь(char мужщина, char женщина)
{
char result;
int i=0;
int result=0;
Анализ объекта();//параметры функции вводятся пользователем
Разведка боем();//параметры процедуры вводятся опытным пользователем (если вы никогда раньше этого не делали посоветуйтесь сс специалисттом)
if (удача==true && ты_в_её_вкусе==true)
{if (Наступление()=true)
{cout<<"You Win!!!;}
else
{for(;;i>1)
{if(Осада()=true)//параметры Осады каждый раз вводить по новому
i=2;}}
Победное шествие();
Какое_то_время();
if (Кровать=удовлетворены_оба) result=1;
if (Кровать=удовлетворена_только_девушка) result=0;
if (Кровать=удовлетворен_только_мужщина) result=2;
if(result=1) cout<<" Congratuletion";
if(result=0) {cout<<"Извини дорогая... но можно я пойду"; exit();}
if(result=2) {зависит_от_других_параметров_мужщины()
Продолжение отношений();
for(i=0;i++
{радости_совместной_жизни();
if (i=ты_жить_без_нее_не_можешь)
{cout<<"Женидьба и все дела";
exit();}
if(i=как_он_(она)_мне_надоел_(а))
cout<<"Дорогая можно я пойду...";}
cout<< "Я свободен!!!";}
поиск_новой_жертвы_();
любовь (мужщина, новая_жертва);
}
Компилируете товарищи габберыыыы
Следующая страница
все относительно и хватит эту тему подымать мы все равно не найдем ответа на этот вопрос... так как для каждого чела он останется своим... успокойтесь респект все! 
