take me idea what is wrong:
var a,b,c:integer;
begin
read(a,b);
c:= (2*a) div b;
if c=2*a/b then write(c)else write (c+1);
end.
p.s sorry for my english

try test a=1, b - any number. you'll get answer c=1.