[Alegun]

Первомай всё же, можно немного и раслабиться, а посему, такая тема.

Есть ящик пива, есть копчёный лещ,
попер паскаль в стихах, такая вещь...

Давно-давно видел хабрахабровский конкурс стихоплётов на паскале и там было примерно такое:

Код:

If then begin, begin to do 
In case interface in do 
In do, in do... begin to do 
If else case then interface!

...

Код:

to return not break

// 4 раза

do while break return
do while break return
do while break return
for if switch case default

...

Там даже чтецы выступали со своими виршами, выглядело как то так:

Ай интежер - Си чар.

Рипит фо Ай зеро ту тен,
ду бегин,
Иф Си плас ейт лесс 'ю' ту энд
Ай плас твелв ин.

[Зеро... Твенти файф] Вен райт эл эн "эй";
Рипит антил кипресст;
Энд Райт эл эн си - риид кей
Антил си лардж вен 'Эсс'!

...

Это ламерское:

Рипит фо Ай равно нулю, ту тен ду трай бегин.
Иф си плюс восемь меньше Ю, и Ай плюс двадцать три.
Ноль — двадцать пять, зен райтелн эй,
Рипит антил кейпрессед.
Энд, райтелн, Си равно ридкей,
Антил Си больше Эс зи энд.

...

Вот и мой вариант:

const or var?
{эфм: быть или не быть?}

Код:

If then begin, for var begin
And case mod while div to do
Try except true, in do begin
repeat until to unit interface
If else const then while case!

...

После бутылки чего покрепче даже пестня попёрла (на мотив битловской ЖПЛ, в смысле Yellow submarine)

Код:

In then down while is down
string as var begin to set
And shr mod if of xor file
In inline and of interrupt
To of label in to then sum
with do not for div of then
And if end record do uses
In asm array procedure;

// припев

if do while
is, do while break
is do while break
is do while break

...

Может, кто продолжит?


З.Ы. Кстати, вот список возможных слов для рифмы:

Код:

uses
absolute, label, and, library, array, mod, asm, nil, begin, not, case, 
or, const, of, constructor, object, div, packed, goto, procedure, do,
program, downto, record, destructor, repeat, else, set, end, shl, exports,
shr, external, string, file, then, for, to, forward, type, function, unit, if, until,
implementation, in, var, inline, while, interrupt, with, interface, xor, inherited;

Эпитафия:

А потом пришли сишники... и прослезились - подобрать рифму для фигурной скобки сложновато...