Составьте программку, входящую true,если выражение является подлинным,и false в неприятном случае:

program zz1;
var n,i,s,a,b,c:integer; //задаем переменные
d:boolean;
begin
read(n); //вводим данное трехзначное число
while n gt; 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 (alt;gt;b)and(alt;gt;c)and(blt;gt;c) then d:=true else d:=false;//проверяем, если они все разны, то записываем true, по другому false
write(d);//выводим ответ
end.