Program ff;
Var a,b:integer;
Begin
Readln(a);
Readln(b);
if (b-a) mod 2=0
then Writeln((b-a)/2)
else Writeln((b-a) div 2+1);
end.

Test: 1 5
Right answer: 3
Yours: 2