type
pointer = ^longint;
var
a, b: longint;
procedure myfun(a: pointer; b: longint);
var
c: longint;
begin
c := a^;
a^ := b;
b:=c;
a^:= b + 1;
b :=a^ -1;
end;
begin
readln(a, b);
myfun(@a, b);
writeln(a,' ', b);
end.
输入：2015 2016
输出：2016 2016