Составьте программу, вводящую 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.