Файлы.

[Fatalita]

Помогите написать программу с помощью функции.

Дано натуральное число n. Получить последовательность b1,b2,...,bn, где при i=1,2,...,n значение b[i] равно (i!).

Огромное спасибо!

[BDA]

Не забывайте указывать язык программирования.
Код на дельфи:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f:textfile;
  n:integer;

procedure writefactorials(var f1:textfile;n1:integer);
var
s:double;
i:integer;
begin
s:=1;
  for i:=1 to n1 do
  begin
    s:=s*i;
    write(f1,s:0:0,' ');
  end;
end;

begin
  assignfile(f,'factorials.txt');
  rewrite(f);
  write('Vvedite n= ');
  readln(n);
  writefactorials(f,n);
  closefile(f);
end.

Нужна именно функция?