Попросил сына посмотреть как компутер считает. Ваще прикол :)

program ab;
var
a:real;
begin
a:=0.499999999999;
writeln(round(a));
readln;
end.

Выдает на экран 0. Если менять переменную а от 0.49 до 0.499999999999

При добавлении в переменную еще одну или более девяток справа - начинает выдавать 1 :)

Это интересно послушать что скажет vbn. Ну для начала хотя бы просто может повторить эксперимент на своем компутере и на своей версии Дельфи. У нас какой то старый досовский Паскаль.