Ошибка не в условном операторе, а в операторе вывода.
Вероятно, забыли указать после запятой в операторе вывода имя переменной max.
writeln('Round(max)=',max)
Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
Ответ: 7
Нy и мне нyжно написать 20 символов
Так как я понял. Мы не вычислительная техника и поэтому мы не можем выполнять больше 2 сложных дел.