Ввести ціле число вивести повідомлення число парне чи непарне використовуючи операцію div

Var
  n:integer;
begin
  Write('n= '); Read(n);
  if n = (n div 2)*2 then Writeln('Четное')
  else Writeln('Нечетное')
end.

Тестовое решение:
n= 26321
Нечетное

//Можно даже без условного оператора
//Pascal ABC.NET Версия 2.2 Сборка 790
const ar:array[-1..1]of string =('Нечётное','Чётное','Нечётное');

var n,k:integer;
begin
readln(n);
try
k:=5 div n ;                 //но div тут всё-таки есть
writeln (ar[n mod 2]);
except
writeln('0');
end;
end.

Пример ввода:
32767
Пример вывода:
Нечётное