Объяснение:
program Zadacha;
var
a, b, x: integer;
begin
readln(a, b);
if (((a < 0) and (b > 0)) or ((b < 0) and (a > 0)))
then
x := a;
a := b;
b := x;
writeln(a, ' ', b)
end
else writeln(a + b)
end.
Объяснение:
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.