Pascal问题，求大师解答，请用最简洁的方法。

原来的程序考虑有漏洞。现已重新编写程序如下：
var a,b,n,m:longint;
function f(x,k:longint):longint;
var n:longint;
begin
n:=0;
while x>0 do
begin inc(n,x div k); x:=x div k end;
f:=n;
end;
begin
readln(a,b);
if a>b then begin n:=a; a:=b; b:=n end;
dec(a);
n:=f(b,5)-f(a,5); m:=f(b,2)-f(a,2);
if nend.

var a,b,n,m,x:longint;
begin
readln(a,b);
if a>b then begin n:=a; a:=b; b:=n end;
dec(a); n:=0; x:=b;
while x>0 do
begin inc(n,x div 5); x:=x div 5 end;
x:=a;
while x>0 do
begin dec(n,x div 5); x:=x div 5 end;
m:=0; x:=b;
while x>0 do
begin inc(m,x div 2); x:=x div 2 end;
x:=a;
while x>0 do
begin dec(m,x div 2); x:=x div 2 end;
if nend.