Склавиатуры вводятся координатные точки. верно ли, что она лежит на какой-нибудь координатной оси?

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x = 0)or(y = 0) then Write('Верно')
else Write('Не верно')
End.