Неправильно считает в real

[Winner]

Маленький пример:

var x:real;

begin
x:=(4-6)/5;
DrawText (''+x, 5, 5);
repaint;
Delay(5000);
end.

Эмулятор выдает следующий результат: 0.0000
По калькулятору (да и в уме) ответ получается -0.4.

Стоит указать в делителе (знаменателе) дробную часть и всё работает.

x:=(4-6)/5.0;


http://forum.boolean.name/showthread.php?t=9570