Ошибка не в условном операторе, а в операторе вывода.
Вероятно, забыли указать после запятой в операторе вывода имя переменной max.
writeln('Round(max)=',max)
Цветов 16 = 4 бита
800х600х3 = 1440000 пикселей
1440000 х 4 = 5760000 бит
720000 байт
703,125 кбайт
Площадь изображения 15,5 кв. дюймов. На каждыц кв. дюйм приходится 600×600=360000 точек. Всего точек в изображении 15,5×360000=5580000.
На каждую точку приходится 32 бита или по-другому 4 байта (глубина цвета). Следовательно, информационный объем в байтах будет равен:
5580000×4=22320000 байт. Чтобы получить килобайты, поделим это число на 1024:
<span>22320000:1024≈21797 килобайт.</span>
Легко-
1)набираешь в обоих воду
2)Выливаешь В
3)Наливаешь А в В
4)Набираешь воду в А
5)Переливаешь воду в В
Так получается А-100 мл