Массив на Паскале!

[vlad1991]

Сделал задачу на Паскале, но почему-то не получается сформировать массив, при тестировании массива выводит массив состоящий из нулей!
Подскажите пожалуйста в чем ошибка!

дан массив x.Получить массив y, каждый элемент которого определяется формулой:
y[i]=(((x[i])^2) -2!)*(((x[i])^3) -3!)+...+(((x[i])^9) -9!).
моя прога:

program lab;
var
x,y:array [1..10] of integer;
i,z,t,n,l,m,p,f:integer;
begin
readln(n);
for i:=1 to n do begin
readln(x[i]);
end;
for i:=1 to n do
begin
f:=2;
p:=x[i];
l:=x[i];
t:=1;
for m:=2 to 9 do begin
p:=l*p; {формирование степени}
f:=f*m; {формирование факториала}
z:=p-f; {НАХОЖДЕНИЕ СКОБКИ}
t:=t*z; {нахождение произведения скобок}
end;
y[i]:=t
end;
for i:=1 to n do
write(y[i],' ');
end.

[Serge_Bliznykov]

vlad1991,
1) а поясните, чему верить
"=(((x[i])^2) -2!)*(((x[i])^3) -3!)+...+(((x[i])^9) -9!).
может последовательность представляет собой всё таки СУММУ?!

2) а Ваша проблема в том, что тип данных Integer просто НЕ ВМЕЩАЕТ те числа, которые получаются в результате расчётов. замените, хотя бы на:

x,y:array [1..10] of LongInt;
i,z,t,n,l,m,p,f : LongInt;

[puporev]

x,y:array [1..10] of LongInt;
i,z,t,n,l,m,p,f : LongInt;

Бесполезно. Если речь идет об умножении, то только extended.

[Serge_Bliznykov]

Бесполезно. Если речь идет об умножении, то только extended.

угу. согласен.
ну, или городить огород с "длинной" арифметикой... ;-(

[puporev]

У него скорее сумма, а он уперся с умножением, смысл не понимает. Я ему пытался на этот вопрос в другой теме объяснить, не знаю, понял или нет.