дано четырехзначное число. проверить на четность его последнюю цифру и на кратность 4 предпоследнюю иначе мне яйца оторвут

var x:integer;

begin

 while (x<1000) or (9999<x) do

   begin

   write('Введите 4ехзначное число= '); readln(x);

   end;

 writeln; write('Число ',x mod 10);

 if x mod 2=0 then writeln(' чётно')

 else writeln(' нечётно');

 write('Число ',(x mod 100) div 10);

 if ((x mod 100) div 10) mod 4=0 then writeln(' кратно на 4')

 else writeln(' не кратно на 4');

end.