what is in the test #7?

here is my program

var n,k:longint;
begin
readln(n,k);
  if (n<=k) then write(2*n)
  else if (n mod k=0) then write(trunc(2*n/k))
       else write(trunc(1+(n-(n mod k))/k+((n-abs(k-(n mod k)))-((n-abs(k-(n mod k))) mod k))/k+((n-abs(k-(n mod k))) mod k)/k));
end.

my sotution is WA#7 too. help me,pls