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

Var   a, b: integer; begin   readln(a, b);   if a * b < 0 then {если числа разных знаков}     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.