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

[Stilet]

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

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

[Arigato]

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

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

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

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

[phomm]

Что-то я почувствовал прилив ностальгии и закусился оптимизировать своё решение.
И тема замечательная, хорошо бы апнуть.
В итоге, вот решение работающее для любой последовательности чисел (от количества 2), алгоритм первым циклом определяет возрастание/убывание/разнобой, вторым циклом умножает всю последовательность на заданные коэффициенты. Манипуляции с указателями вполне допустимые, а кейс выкинул как требующий ручных подгонок.

program Project1;

uses Math, SysUtils;

procedure Calc(X: array of PInteger);
var
  I, S: Integer;
begin
  S := Sign(X[1]^- X[0]^);
  for I := 2 to Length(X) - 1 do S := S * Ord(S = Sign(X[I]^- X[I-1]^));
  for I := 0 to Length(X) - 1 do X[I]^ := X[I]^ * (Ord(#0#2#3[S + 2]) - 1); 
end;

procedure Run();
var a, b, c, d, e, f, g, h:Integer;
begin
  a := 1;
  b := 2;
  c := 3;
  d := 4;
  e := 5;
  f := 6;
  g := 7;
  h := 8;

  Calc([@a, @b, @c, @d, @e, @f, @g, @h]);
  Write(Format('%d %d %d %d %d %d %d %d', [a, b, c, d, e, f, g, h]));
end;

begin
  Run();
  Readln();
end.

коэффициенты заданы через #0#2#3 (добавляя -1): -1 для убывающей последовательности, 1 для разнобоя, 2 для возрастающей

можно адаптировать для случая, когда последовательность не строго возрастает/убывает, а имеются подряд одинаковые числа, т.е. не меняется знак изменения последовательности на противоположный