программа проверяющая верно ли утверждение что сумма цифр двузначного числа четное(на паскале)

var a,s:integer;
begin
write('a = ');
readln(a);
s:=a div 10 + a mod 10;
writeln('s = ',s);
if s mod 2 = 0
 then writeln('Верно')
 else writeln('Неверно');
end.

Пример:
a = 25
s = 7
Неверно