30 даны 2 числа, если они имеют разные знаки, то поменять их местами, иначе найти их сумму​

Объяснение:

program Zadacha;

var

 a, b, x: integer;

begin

 readln(a, b);

 if (((a < 0) and (b > 0)) or ((b < 0) and (a > 0)))

 then

 begin

   x := a;

   a := b;

   b := x;

   writeln(a, ' ', b)

 end

 else writeln(a + b)

end.