for i = 1 to -1
i := i + 0;