{* Задача 45 *}

Unit PRIM45;
Interface
Implementation
Begin
 writeln('Вычислить сумму ряда, общий член которого задан формулой An=(x*n)/n!.');
End.

Program prim45;

Uses prim45.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  x : integer;
  k : integer;
  n : integer;
  a : real;
Function tt(n : integer) : integer;
Begin
  If n = 0 Then
    tt := 1
  Else tt := n * tt(n - 1);
End;
Begin
  writeln('введите Х и количество суммы элементов :');
  readln(x, k);
  a := 0;
  For n := 1 To k Do {* Увеличиваем n от 1 до k с шагом 1 *}
    a := a + (x * n) / tt(n);
  writeln('cумма равна: ', a);
  readln; {* Приостановка программы. Ожидание Enter *}
End.