сделай программу на языке Паскаль с помощью которой можно опредилить задание число четное

Программа на языке Паскаль для определения чётного числа:

program CheckEven;
var
  num: integer;
begin
  writeln('Введите число:');
  readln(num);
  if num mod 2 = 0 then
    writeln('Число четное')
  else
    writeln('Число нечетное');
end.