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
var
x,y,z:integer;
begin
write('X= ');
readln(x);
write('Y= ');
readln(y);
if x>= y then z:=x+y
else z:=1-x+y;
writeln('Z= ',z);
end