Попросил сына посмотреть как компутер считает. Ваще прикол
program ab;
var
a:real;
begin
a:=0.499999999999;
writeln(round(a));
readln;
end.
Выдает на экран 0. Если менять переменную а от 0.49 до 0.499999999999
При добавлении в переменную еще одну или более девяток справа - начинает выдавать 1
Это интересно послушать что скажет vbn. Ну для начала хотя бы просто может повторить эксперимент на своем компутере и на своей версии Дельфи. У нас какой то старый досовский Паскаль.