Program multiplication;

var
x, n, i: integer;
product: integer;

begin
product := 1;

write('Enter the value of x: ');
readln(x);

write('Enter the value of n: ');
readln(n);

for i := 1 to n do
begin
product := product * (x - i);
end;

writeln('The product is: ', product);

end.