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

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 Неверно