*****
* Для чтения стишка достаточно иметь
* смутное представление о том, что такое
* - структура программы
* - (процедура, тело программы);
* - глобальная переменная;
* - цикл 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.