{* Задача 539 *}

Unit ZADACH539;
Interface
Implementation
Begin
 writeln('Вычислить Y=n1/1!+n2/2!+...+nk/k! ');
End.

Program zadach539;
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  k  : longint;
  j  : longint;
  n  : longint;
  i  : longint;
  s1 : longint;
  s2 : longint;
  y  : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('n = ');
  readln(n);
  write('k = ');
  readln(k);
  y := 0;
  For i := 1 To k Do {* Переменная i увеличивается с 1 до k *}
  Begin
    s1 := 1;
    s2 := 1;
    For j := 1 To i Do {* Увеличиваем j от 1 до i с шагом 1 *}
      s1 := s1 * n;
    For j := 1 To i Do {* Увеличиваем j от 1 до i с шагом 1 *}
      s2 := s2 * j;
    y := s1 / s2 + y;
  End;
  write('Ответ:', y);
  readln; {* Приостановка программы. Ожидание Enter *}
End.