Определить является ли данное число(1-100),заданное с клавиатуры четным или нечетным — Pascal(Паскаль)

var
  a: integer;

begin
  readln(a);
  if a mod 2 = 0 then
    writeln('Четное')
  else
    writeln('Нечетное');

end.