Exemplo Funcao e Vetor - Fatorial

program funcao_fatorial_vetor;
uses crt;

var vetor : array[1..10] of integer;
    j : integer;


  function fatorial(n : integer) : integer;
  var i : integer;
      f : integer;

  begin
    f := 1;
    for i := 1 to n do
        f := f * i;
    fatorial := f;
  end;

begin

  for j := 1 to 10 do
      vetor[j] := fatorial(j);

  for j := 1 to 10 do
        writeln ('Vetor[', j:2, '] = ', vetor[j]);

  readkey;
end.