Вводится двузначное число с клавиатуры.Найти сумму цифр этого числа и проверить,является эта сумма четным числом или нет.Помогите пожалуйста:(

Var
  n, sum :integer;

begin

  readln(n);
  sum:= (n div 10) + (n mod 10);
  write(sum, - );
  if sum mod 2 = 0 then
    write(четная)
  else
    write(нечетная);

end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.