Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда? если ни одно из значений не равно 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.