Дано действительное число х. напишите программу для вычисления: числа х, округлённого до ближайшего целого числа х без дробных цифр

Впаскале есть функция round, которая использует следующий "стандартный" алгоритм округления: если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица. а функция trunc возвращает целую часть числа. var   p: real; begin   write('введите число: '); read(p);   writeln('округленное значение: ',round(p),', целая часть: ',trunc(p)) end. тестовое решение: введите число: -12.74 округленное значение: -13, целая часть: -12 введите число: 12.93 округленное значение: 13, целая часть: 12 введите число: 9.4323 округленное значение: 9, целая часть: 9

144 кбайт разделить на (128х1024) = 1 байт на точку (примерно) . следовательно, на каждый цвет придется по 3 бита (если учесть ошибки перевода из кб в б) . или 8