Verified answer

var t1,t2,t3: integer;

begin

writeln('Введиет 3 значения температуры:');

readln(t1,t2,t3);

if (t1>=0)or(t2>=0)or(t3>=0)

then writeln('Введена температура таяния льда')

else writeln('Такой температуры нет');

end.

Пример:

Введиет 3 значения температуры:

-10 5 -7

Введена температура таяния льда