Напишите программы вычисления произведения (х-1) (х-2) (х-3) … . (х-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