program bt_gr_1091;

const
  d:array[2..50,2..50]of word=((0,0,1,1,4,4,7,9,14,14,21,21,28,...),
......
......
(0,...,0,0,0,0,0,0,0,0,0,0,0,0,0));

var
  a,b:byte;

begin
  read(a,b);
  write(d[a,b]);
end.

and it got Accepted 0.015s,200K
I just want do die...