Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами a, b, c является разносторонним.
Помогите пожалуйста

Спасибо большое)

{a}var x: integer;begin read(x); write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )end.{b}var a,b,c: integer;begin read(a,b,c); write( (a <> b) and (b <> c) and (a <> c) )end.