Дано 3 переменных A,B,C.

[Stilet]

держатся на честном слове в хакерской надежде

Я предупреждал )
У мну извращеннее некуда.

[Arigato]

Сообщение от phomm

А ещё XProger писал у себя

if a > 0 then (
  if a > 1 then
    a := 1;
) else
  a := 0;

Не работает в Делфи 2007.