Дано 4-хзначное число. используя логические величины, ответить на вопросы: является ли число четным; является ли вторая цифра числа четной. программа: pascalabc,net

Var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 =0 then writeln ('Число чётное') else writeln ('Число нечётное');
if ((a div 100) mod 2=0) then writeln ('2-я цифра чётная') else writeln ('2-я цифра нечётная');
end.