Склавиатуры вводится 5-значное число. если первая и последняя цифры этого числа четные, вывести на экран "четные", в противном случае вывести "нечетные"

Var a,a1,a2:integer;
begin
  readln(a);
  a1:=a mod 10; //последняя цифра
  a2:=a div 10000;//первая цифра
  if (a1 mod 2 = 0)and(a2 mod 2=0) then
    writeln('четные')
  else
    writeln('нечетные');
end.