Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда? если ни одно из значений не равно 0, то выводит сообщение об этом.

как пример:

составное выражение, лигические операторы:

not - отрицание

and - умножение

or - сложение

результат - истина:

(2 + 2 = 5) - ложь, в инверсии - истина

(3 * 3 = 9) - истина

(1+1=8) - ложь, но не влияет на результат, поскольку -

not(2 + 2 = 5) and (3 * 3 = 9) - истина

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.