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

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