дано 2х значное число определить является ли цифра десятков четным числом

Для двузначных чисел:Var A:integer;BeginWriteLn('Введи число');Read(A);if (A div 10) mod 2 = 0 then Write(A div 10,' - чётная цифра')else Write(A div 10,' - НЕчётная цифра')End.Для любых чисел:Var A:integer;BeginWriteLn('Введи число');Read(A);if ((A div 10) mod 10) mod 2 = 0 then Write((A div 10) mod 10,' - чётная цифра')else Write((A div 10) mod 10,' - НЕчётная цифра')End.