{* Процент рождения мальчиков и девочек *}

Unit PROC_4;
Interface
Implementation
Begin
 writeln('Процент рождения мальчиков и девочек');
End.

Program proc_4;

Uses proc_4.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  k : byte;
  n : byte;
  x : real;
Function fact(x : byte) : real;
Begin
  If x = 0 Then
    fact := 1
  Else fact := fact(x - 1) * x;
End;
Function stepen(x, y : real) : real;
Begin
  stepen := exp(y * ln(x));
End;
Function dety(n, m : byte) : real;
Begin
  dety := (fact(n) / (fact(m) + fact(n - m))) * stepen(0.5, m) * stepen((1 - 0.5), n - m);
End;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Vvedite chisla');
  readln(k, n);
  x := dety(k, n);
  writeln('x = ', x : 5 : 2);
  readkey; {* Ждем нажатия пользователя *}
End.