дано 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.