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

program zz1;

var n, i, s, a, b, c:integer; / /задаем переменные

d:boolean;

begin

read (n); / /вводим заданное трехзначное число

while n > 0 do

begin

i:=n mod 10; / /получаем последнюю цифру

n:=n div 10; / /отбрасываем ее

s:=s+i; / /добавляем ее в сумму

end;

if s mod 2 = 1 then d:=false else d:=true; / /проверяем, если сумма цифр нечетная, то записываем false, иначе true

write (d); / /выводим ответ

read (a, b, c); / /вводим стороны треугольника

if (ab) and (ac) and (bc) then d:=true else d:=false; //проверяем, если они все различны, то записываем true, иначе false

write (d); //выводим ответ

end.