Составьте программу которая запрашивает ввод трех значений температуры и проверяет есть ли среди них температура таяния льда (>0) Паскаль.

program zz1;

var a, b, c, d:integer; / / задаем переменные целого типа

begin

write (' введите первую температуру '); / / вводим с клавиатуры три заданных числа

read (a);

write (' введите вторую температуру ');

read (b);

write (' введите третью температуру ');

read (c);

if a > 0 then d:=1; / / проверяем условие

if b > 0 then d:=1;

if c > 0 then d:=1;

if d = 1

then write (' среди введенных чисел температура таяния льда есть ')

else write (' среди введенных чисел температура таяния льда нет ');

END.