Напишите программу вычисления произведения. Расписать в 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.