С клавиатуры вводится 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.