Ошибка не в условном операторе, а в операторе вывода.
Вероятно, забыли указать после запятой в операторе вывода имя переменной max.
writeln('Round(max)=',max)
<h2>
Задача 1.</h2><h3>
Дано:</h3>
w (ширина) = 512
h (высота) = 512
N (кол-во цветов) = 256
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
2²¹ бит = 2¹⁸ байт = 2⁸ кБайт = 256 кБайт
Ответ: 256 кБайт.
<h2>
Задача 2.</h2><h3>
Дано:</h3>
w (ширина) = 1024
h (высота) = 768
N (кол-во цветов) = 16777216
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
9 * 2²¹ бит = 9 * 2¹⁸ байт = 9 * 2⁸ кБайт = 2.25 мБайт
Ответ: 2.25 мБайт.
<h2>Задачу 3 оставлю здесь:</h2>
znanija.com/task/27410968
Процессор, оперативная память.
Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>