Помогите составить алгоритм. Даны числа Х,У. Проверить истинность высказывания "

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 Точка находится во второй координатной четверти