program z6_24;
uses crt;
var n: integer;
Function Grant(n,k:integer):longint;
Begin
clrscr;
if (n=0) or (k=0) then grant:=1
else grant:=n*Grant(n-1,k-1);
end;
begin
write('Ввудите количество участников:');
readln(n);
writeln('Количество комбинаций',Grant(n,5));
end.