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

Для двузначных чисел:

Var A:integer;

Begin

WriteLn ('Введи число') ;

Read (A) ;

if (A div 10) mod 2 = 0 then Write (A div 10,' - чётная цифра')

else Write (A div 10,' - НЕчётная цифра')

End.

Для любых чисел:

Var A:integer;

Begin

WriteLn ('Введи число') ;

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.