var
  x, y: real;

begin
  writeln('Введите координаты точки (x и y)');
  read(x, y);
  if (x > 0) and (y > 0) then writeln('Точка в 1 четверти');
  if (x > 0) and (y < 0) then writeln('Точка в 4 четверти');
  if (x < 0) and (y < 0) then writeln('Точка в 3 четверти');
  if (x < 0) and (y > 0) then writeln('Точка во 2 четверти');
end.