var a,b,x,y: integer;
begin
writeln('vvedite 2 chisla');
readln(a,b);
if a-b>0 then
x:=a-b;
y:=a+b;
end
else
x:=a+b;
y:=b-a;
end;
write('a = ',x,', b = ',y);
readln;
end.
var a,b,x,y: integer;
begin
writeln('vvedite 2 chisla');
readln(a,b);
if a-b>0 then
begin
x:=a-b;
y:=a+b;
end
else
begin
x:=a+b;
y:=b-a;
end;
write('a = ',x,', b = ',y);
readln;
end.