Напишите программы вычисления произведения (х-1)(х-2)(х--n)

Например так:

program test;
uses crt;
const
  res:integer=1;
var
  n,i,x:integer;
begin
  clrscr;
  write('Inpit n ');readln(n);
  write('Input x ');readln(x);
  for i:=1 to n do
    res:=res*(x-i);
  writeln(res);
  readln;
end.

P.S. res!=0 if x>n