Var a,b,c:real;
begin
read (a,b,c);
if (a=0) or (b=0) or (c=0) then writeln (Есть) else writeln (Нет);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.