Создание массива с помощью факториалов другого

[нефтяник]

Ребят, нужна помощь. Не могу решить задачу. Дан одномерный массив A. Образовать новый одномерный массив C, исходя из предположений, что С[1]=А[1]!, С[2]=А[2]!*А[3]!, С[n]=A[n-1]!*A[n]!

[нефтяник]

Попробовал что то набросать, но не работает)))

var I,y,x:integer;
a: array[1..10] of integer;
c: array[1..10] of integer;
begin
Writeln;
for i:=1 to 10 do begin
function fact(x:integer):integer;
var
begin
if x<=1 then fact:=1
else fact:=fact(x-1)*x;
end;
x:=a[i];
function fact(y:integer):integer;
begin
if y<=1 then fact:=1
else fact:=fact(y-1)*y;
end;
y:=a[i+1];
end;
c[1]:=fact(x);
for i:=2 to n do begin
c[i]:=fact(x)*fact(y);
Write(c[i],' ');
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[yaschenko]

Попробуй как-то так:

 Randomize;
    Write('a: ');
    for i := 1 to 10 do
      begin
      a[i]:=Random(10)+1;
      Write(a[i],' ');
      end;
    c[1]:=fact(a[1]);
    c[2]:=fact(a[2])*fact(a[3]);
    Writeln;
    for I := 3 to 10 do
      c[i]:=fact(a[i-1])*fact(a[i]);
    for i := 1 to 10 do
      Write(c[i],' ');
    readln;

Функция нахождения факториала:

function fact(n:Integer):Integer;
begin
if n=1 then fact:=1
else fact:=fact(n-1)*n;
end;

[нефтяник]

Спасибо, разобрался