Опредилить, лежит ли данная точка с координатами х,у в первой четверти координатной плоскости

Var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then write('YES')
else write('NO')
end.