{* Нахождение факториала *}

Unit PROC_3;
Interface
Implementation
Begin
 writeln('Нахождение факториала');
End.

Program proc_3;

Uses proc_3.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  k : integer;
  n : integer;
  x : real;
Function fact(x : integer) : real;
Begin
  If x = 0 Then
    fact := 1
  Else fact := fact(x - 1) * x;
End;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Vvedite chisla');
  readln(k, n);
  x := fact(n) / (fact(k) * fact(n - k));
  writeln('x = ', x : 5 : 2);
  readkey; {* Нажмите любую клавишу *}
End.