Определить является ли первая цифра двузначного числа четным

var a:integer;

begin

readln(a);

if (a div 10) mod 2=0 then

writeln('Yes')

else

writeln('No');

end.

a - двухзначное число, b - первая цифра двухзначного числа

b: = a div 10;

if (b mod 2 = 0) then writeln ('Цифра чётная');

if (b mod 2 = 1) then writeln ('Цифра нечётная');