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

(Палиндромы, панторифмы, акростихи) - 2001-05-03
 
{*****
 * Для чтения стишка достаточно иметь
 * смутное представление о том, что такое
 * - структура программы
 * (процедура, тело программы);
 * - глобальная переменная;
 * - цикл “repeat - until”;
 * - условный и безусловный переход;
 * - метка;
 * - комментарий;
*****}

{C другой стороны, для получения смутного представления
о программировании достаточно разобраться в стишке}
-----



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