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

1. var   a: integer; begin   write('введите число ');   readln(a);   if mod 10) + (a div 10 mod 10) + (a div 100)) mod 2) = 0 then write('true') else write('false'); end. 2. var   a,b,c: integer; begin   write('введите стороны треугольника ');   readln(a,b,c);   if (a=b) or (a=c) or (b=c) then write('false') else write('true'); end.