var
i,n,x:integer;
p:longint;
begin
write ('X = ');readln(x);
repeat
write ('N = ');readln(n);
until (n>0);
p:=1;
for i:=1 to n do p:=p*(x-i);
writeln ('Proizvedenie: ',p);
readln;
end.
