A Pascal program that reads a positive integer N and tabulate the factorials of the number from 1 to N.

factorial.pas

(*
  WIP: This solution uses recursive factorial definition.
  At the moment, this solution does not satisfy the complete requirements
  of the problem statement. If I'm given enough time, I can implement a
  solution that will match the specifications.
*)

program factorial;

function factorial(number: integer): longint;
begin
  if (number = 0) then
    factorial := 1
  else
    factorial := number * factorial(number - 1);
end;