Подскажите где у меня ошибка(Паскаль)

[NTFS]

Дано: натуральное n , действительные a1,....,аn Вычислить:
а1+а2*(а2-1)+...+an*(an-1)...(an-n+1)
Если сумма ряда не понятна ,то поясняю:например n=4
тогда 1+2*(2-1)+3*(3-1)*(3-2)+4*(4-1)*(4-2)*(4-3)
Не правильно считает,подскажите где ошибка.
Вот код:
program _114;
type k=array[1..100] of integer;
var a:k;n,j,i,r,u:integer;
begin
repeat
writeln('vvod n>3');
readln(n);
until(n>3);
writeln('vvod',n ,' elementov cherez probel');
for i:=1 to n do read(a[i]);
r:=a[1];
u:=1;
for i:=2 to n do begin
for j:=1 to n do
u:=u*(a[i]-j+1);
r:=r+u;
u:=1;
end;
eriteln('OTBET:'r);
readln;
readln;
end.

[Карась]

1)

eriteln('OTBET:'r);

Как это пропустил компилятор

[Stepler]

Чтото перемудрил сильно, даже не хочу разбирать что там и как, проще с нуля было написать, вот смотри пример, все намного проще!

var n,r,s,i,j:integer;
begin
writeln('Vvedite chislo');
readln(n);
r:=1;
for i:=1 to n-1 do
 begin
 s:=1;
 for j:=i+1 downto 2 do
 s:=s*j;
 r:=r+s;
 end;
writeln(r);
end.

[puporev]

На формулу внимательнее посмотри. У тебя она a[i]*(i-1)!, т.е.
for i:=2 to n do
summa:=summa+a[i]*(i-1)!; Конечно надо функцию факториал вставить.
summa:=summa+a[1];