{* Вычисление выражения 6 *}

Unit VIRAGEN6;
Interface
Implementation
Begin
 writeln('Y=n1/1!+n2/2!+...+nk/k! ');
End.

Program viragen6;

Uses viragen6.pas; {* Эту строку можно удалить *}
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 *}
      s1 := s1 * n;
    For j := 1 To i Do {* Цикл для j => [1 .. i] *}
      s2 := s2 * j;
    y := s1 / s2 + y;
  End;
  write('Ответ:', y);
  readln; {* Ждем подтверждения пользователя *}
End.