Этот код не шутка и написан не ради прикола.
Это кусок реального кода!

 
function IsTrue(Value: boolean): boolean;
begin
  if Value <> true then result := false
  else if Value <> false then result := true
  else // внимание!
    result := (not true) and (not false);
end;

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

Перевод:

• А здесь у нас генератор случайных чисел.
• Девять, девять,  девять, девять, девять, девять...
• А вы уверены, что они случайные?
• В этом проблема. Со случайностями никогда нельзя быть уверенным.

перевод: "честно выбрано броском игрального кубика. Гарантировано вернёт случайное"