Даны два целых числа. Если они оба положительны, то большее из них заменить их средним арифметическим; если оба отрицательны, то поменять знак у меньшего из них; иначе каждое из них удвоить

Var
  a, b: integer;

begin
  readln(a, b);
  if a * b     writeln(2 * a, , 2 * b)
  else if a > 0 then begin{иначе одного знака и больше нуля}
    if a > b then
      writeln((a + b) / 2, , b)
    else
      writeln(a, , (a + b) / 2)
  end
  else begin
    if a > b then
      writeln(a, , -b)
    else
      writeln(-a, , b)
  end;
end.