Данные числа х, у являются координатами точки, лежащей в первой координатной четверти (программа Паскаль)

var x, y : real;
begin
   write('x = '); readln(x);
   write('y = '); readln(y);
   if (x > 0) and (y > 0) then writeln('x и y в первой четверти')
   else if (x < 0) and (y < 0) then writeln('x и y в третьей четверти')
   else writeln('x и y где-то в другом месте')
end.