Напишите программы вычисления произведений (x-1)*(x-2)*(x-3)...(x-n).Помогите исправить ошибку,говорят в строке где решение но я не пойму почему.

var x,p: real; n,i:integer;

begin

readln(x,n);

p:=1;

for i:=1 to n do p:=p*(x-i);

writeln('P = ',p:8:5);

end.

Пример:

2.5 5

P = -1.40625