[YVitaliy]

Case это почти тот же самый if...
Немного попарившись, нашел такое решение (кажись, в ф-ции abs() if-ов нет? ):

Код:

  y:=-((((x - 2) + abs(x - 2)) div 2 - 1) mod 2 - 3) mod 3 - 1;
или
y:= ((((x - 2) + abs(x - 2)) div 2 - 1) mod 2 - 3) mod 3 + 1;

Но полюбас есть лучшее решение..