I did the calculation of the function in Pascal ABC, I just can't find the error. Was the value not valid when counting one?

Question

Pascal

DrawTextCentered(400, 10 + 50 * b, 500, 10 + 50 * b + 50, Trunc(yValues[count] * 100) / 100);