Напишите программу вычисления произведений.(Turbo Pascal)

(x-1)(x-2)(x-3)...(x-n);

var x,n:integer;

begin

readln(n);

readln(x);

for i=:1 to n do

x:= (x-i);

end.

Если решение задачи будет не верно, извените значит надо писать более подробно.