Наши ребята сделали в випе операции ++(плюсплюс), --(минусминус) и т.п. Дали мне описание с примерами. Вот, собственно, примеры:

1. Избавление от констант: простой цикл от 1 до 5
var i : word;
for (i-=i; i++ + ++i + i+i --> i*i-i; message(i) )
{/* тело цикла */ /*};

2. А вот это уже сложный цикл от 1 до 25.
var i,j,k : Word;
for (j := 1; i*i*++i <= (j += ((j *= j) xor i)))
message(' k = '+ ++ k );

А это просто шедевр (специально для бухгалтеров):
3. Используя язык VIP, "в одну строку" вычислить ближайший больший кубический корень числа 1788878864685457 из множества чисел фибоначчи; одновременно численно найти золотое сечение.

Решение:
var i,j : Comp;
for (i := 1; i*i*i - 1788878864685457 < 0) {i := (j += i) - i };
message('Кубический корень = '+i);
message('Золотое сечение = '+ string(double(i)/double(j),8,6));