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
Введена температура таяния льда