free pascal的题目

来一个PASCAL的程序：const a:array[1。。4]of integer=(2,3,5,7);var n,m,i:integer;function humble(x:integer):boolean;var i:integer;begin humble:=true; for i:=1 to 4 do begin while x mod a[i]=0 do x:=x div a[i]; if x=1 then exit end; humble:=falseend;begin readln(n); m:=n; i:=0; while m>0 do begin inc(i); if humble(i) then dec(m); end; writeln('Then ',n,'th humble is ',i); end。