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

var a,s:integer;beginwrite('a = ');readln(a);s:=a div 10 + a mod 10;writeln('s = ',s);if s mod 2 = 0 then writeln('Верно') else writeln('Неверно');end.Пример:a = 25s = 7Неверно