PASCAL! Верно ли , что: "данные числа x,y являются координатами точки, лежащей в первой координатной четверти"?

program one;
var x,y:real;
begin
readln(x,y)
    if x>0 and y>0
 then
    write('Верно') ;
else
    write('Нет');
end