Ошибка вычислений или как?

Подскажите, как заставить корректно работать подобный скрипт? Всегда получаю в результате c=2 (хотя должно быть c=1)

a := 10171.2;
b := 31.2;

if (a/b) = (int(a/b)) then
с := 1
else
с := 2;

messagebox(с);