Как написать в паскале, что число не кратно двум или же является непарным?

var
num :integer; // объявляем переменную
begin
write('Введите число: '); // запрашиваем ввод числа
readln(num); // вводим число

// определяем парность и выводим соответствующее ссобщение
if(num mod 2 = 0) then writeln('Число ',num,' чётное (парное). ')
else writeln('Число ',num,' нечётное (непарное). ');
end.