Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае, когда только одно из чисел a и b четное

var n:integer; begin readln(n); writeln(not odd(n div 100+n div 10 mod 10+n mod 10)); readln end.

Program n1;var a,b: integer;beginreadln(a,b);if (odd(a)) xor (odd(b)) then write('true')else write('false');end.