Что не так?

[vadiprog]

program chislosochetanii;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  function fact(n:integer):integer;
  var i,s:integer;
  begin
  s:=1;
  for i:=1 to n do
    s:=s*i;
  result:=s;
  end;

var n,k:integer;
begin
 readln(n);
 readln(k);
  writeln((fact(n))/(fact(k)*fact(n-k)));
 readln;
end.

[Son Of Pain]

вместо / должно быть использовано целочисленное деление (div), видимо.