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

Var a,b,c:real;
begin
read (a,b,c);
if (a=0) or (b=0) or (c=0) then writeln (Есть) else writeln (Нет);
end.