var n,m,otv:real;
begin
 read(n,m);
 otv:=0;
 if m<=n then
  begin
   n:=m;
   otv:=1;
  end;
 otv:=otv+2*(n-1);
 if (n=0) then writeln(0)
 else writeln(otv:0:0);
end.

>  if m<=n then
try m<n instead

Var
  m,n                 :comp;
begin
  readln(n,m);
  if n <= m then
    writeln((2*(n-1)):0:0)
  else
    writeln((2*(m-1)+1):0:0);
end.

Thanks a lot. My prog got AC!