Where this program WA?:




var n, k, l : LongInt;




function Max(const a, b : LongInt) : LongInt;


begin


  if a > b then Max := a else Max := b;


end;




begin


  read(n, k);


  l := (n div k)*n +


          (n - (n div k)*k)*(n div k);


  l := Max(l, (n div k)*n - k + (n div k + 2)*(n mod k));


  WriteLn(l);


end.