uses
  crt;

var
  x, y: real;
  

begin
  
  write('Ââåäèòå x=');
  readln(x);
  write('Ââåäèòå ó=');
  readln(y);
  If (x<>0)and(y<>0)then
  begin
    if (x > 0) and (y > 0) then write('1 ÷åòâåðòü');
    if (x < 0) and (y > 0) then write('2 ÷åòâåðòü');
    if (x < 0) and (y < 0) then write('3 ÷åòâåðòü');
    if (x > 0) and (y < 0) then write('4 ÷åòâåðòü')
    
  end
  else write('Ïåðåïðîâåðü äàííûå');
  readln;
end.