Дана точка a(x,y). определить лежит ли эта точка в четвертой координатной четверти. даны два числа, не равные друг другу. заменить большее из них модулем суммы, а меньшее - разностью квадратов этих чисел. help !

var

  x, y : real;

begin

  read (x, y);

  if (x > 0) and (y < 0) then writeln ('Yes') else writeln ('No');

end.

Не знаю только, как рассмотреть случай, если одна из координат = 0

var

  a, b, c : real;

begin

  if (a > b) then

  begin

    c := a;

    a := abs (a + b);

    b := sqr (c) - sqr (b);

  end

  else

  begin

    c := b;

    b := abs (b + a);

    a := sqr (c) - sqr (a);

  end;

  writeln (a, ' ', b);

end,