var s,x,n,i:integer;

begin

write('Введите x: ');

readln(x);

write('Введите n: ');

readln(n);

s:=1;

for i:=1 to n do

s:=s*(x-i);

writeln('Произведение равна: ',s);

readln;

end.