Паскаль. Сформировать массив

[PR0Z0N]

Народ помогите пожалуйста решить задачку на паскале:
Сформировать массив X(N), N-й член которого определяется формулой X(N) = 1/N!

[Serge_Bliznykov]

var A : array[1..N] of extended;
  i : integer;
begin
  A[1] := 1;
  for i:=2 to N do
    A[i] := A[i-1]/i;
end.

[VadEr]

const N=...; {сдесь указать размерность}
var A : array[1..N] of integer;
  i : integer;

function factorial(k: integer): integer;
begin
    if k > 1
       then factorial := k * factorial(k-1)
       else factorial:= 1;
end;

begin
  for i:=1 to N do
      A[i] := 1/factorial(i);
end.