{Turbo Pascal}

{Программа Love}

{Comments are shown just above}



var любит: boolean;

var money: твое наличие в кармане;



procedure ресторан;

begin

if (любит) than (домой, на койку);

if (безразлична) then (один

продолжу дома я попойку);

if (неприязни есть момент) –

(букетом ей по морде)

end;



procedure both_of_us {Вдвоем};

begin

if (очень возбудима,

Легка, как птичка, на подъем,

Нежна, в любви неутомима)



Then {цикл соития}

Repeat

(иметь);

until

(башка не треснет);



else

(ей на тачку выдать медь,

найти объект поинтересней};



repeat {с объектом}

ресторан;

until

(есть money in кармане);

{Не забывай про цель, баран,

Не упусти любовь по пьяни!}



{Забыть о первой!}

Go to

В начало проги – {знать, не ту

Нашел, такой вот мой comment,}

Вали она к монаху…}

end;



begin

{пишу я стих любовный,)

(свечи мерцает блик неровный}

if (ты меня не любишь) than

begin

{тут финиш безусловный

and

жизнь моя ни в грош, ни в цент,

and}

go to начало

end



else

if (меня ты любишь) than

repeat

люблю;

until

(мой милый);

{пока готов к работе end

и первозданной налит силой}



If

(я в подмножестве желанных

из множества конкретных нас)

than

ресторан;

{из ресторана –

домой ее, and}

both_of_us



{and than – последний мой comment –

любовь пылает.

Финиш.}



end.



С www.sanctuary.lv