Составить алгоритм. даны числа х,у. проверить истинность высказывания " точка с координатами (х,у) лежит во второй координатной четверти"

Var x,y:real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x<0)and(y>0)
  then writeln('Точка находится во второй координатной четверти')
  else writeln('Точка не находится во второй координатной четверти');
end.

Пример:
x = -2
y = 5
Точка находится во второй координатной четверти