viết chương trình tính số ước và tổng ước của N! (N<=100)

uses crt;
var n,i,d,tong:longint;
function gt(x:longint):longint;
begin
if x<2 then exit(x)
else exit(x*gt(x-1));
end;
begin
clrscr;
repeat write(‘Nhap n(0<n<101)=’);readln(n);
until (0<n) and (n<101);
d:=0; tong:=0;
for i:=1 to gt(n) div 2 do
if gt(n) mod i=0 then
  begin
  d:=d+1;
  tong:=tong+i;
  end;
writeln(d);
writeln(tong);
readln;
end.