为什么是错的

var i,j,k:longint;
begin
while not eof do begin
readln(i,j);k:=0;
repeat
k:=k+i;
i:=i div j;
until i=0;writeln(k);
end;
end.

我的答案是14288，

正确答案是14289.

求救！！！