varx,y,z:integer;beginwrite('X= ');readln(x);write('Y= ');readln(y);if x>= y then z:=x+y else z:=1-x+y;writeln('Z= ',z);end