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

Нет

по программе -да

Введите число1Число нечётное2-я цифра чётная

мой:Program Chislo;Vara: Integer;L1, L2: Boolean;BeginWriteln(´введи число´);Read(a);L1 := a mod 2 = 0;L2 := ((a div 100) mod 10) = 0;Writeln(L1, L2);End.

но с ним что-то не так