Var x,y:real;
Begin
Write(x = );ReadLn(x);
Write(y = );ReadLn(y);
if (x = 0)or(y = 0) then Write(Верно)
else Write(Не верно)
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.