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