uses crt;
var
a,b:longint;
begin
clrscr;
write(' :=');readln(a);
write('b:=');readln(b);
if a<b then
begin
b:=b-a;
a:=a+b;
b:=a-b;
end
else begin
a:=a-b;
b:=b+a;
a:=b-a;
end;
write('a=',a,' b=',b);
readkey;
end.
uses crt;
var
a,b:longint;
begin
clrscr;
write(' :=');readln(a);
write('b:=');readln(b);
if a<b then
begin
b:=b-a;
a:=a+b;
b:=a-b;
end
else begin
a:=a-b;
b:=b+a;
a:=b-a;
end;
write('a=',a,' b=',b);
readkey;
end.