var
  x, y :real;

begin

  write('Ââåäèòå x: ');
  readln(x);
  write('Ââåäèòå y: ');
  readln(y);
  
  if (x < 0) and (y < 0) then
  begin
    x:= x + 10;
    y:= y + 10;
  end 
  else
    if (x > 0) and (y > 0) then
    begin
      x:= x/2;
      y:= y/2;
    end;
  
  writeln(x,' ',y);

end.