This is my program....
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...