любовь программиста

[flashtuchka]

{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.

[nuran]

[flashtuchka]

[Dimonius]

Прикольно

[Crazy]

Программу нужно сносить в КВД на предмет обследования синтаксических ошибок.

[Скив]

[Ріxеl]

класно, только не than, а then
мне оч. понравилось