Программа

TYPE int=integer; { Определение целого типа данных }
     float=real;  { Определение типа данных с плавающей точкой}
FUNCTION Fact(N:int):float;  { Функция вычисления факториала }
  Begin
    { Определение значения функции по мат. определению факториала: }
    if N>1 then Fact:=N*Fact(N-1) else Fact:=1
  End;
FUNCTION Combination(p,q:int):float;
  Begin
    Combination:=Fact(p)/Fact(q)/Fact(p-q); { Определение значения функции }
  End;
FUNCTION S(n,m:int):float; { Функция набора суммы ряда }
  VAR Sum:float; { Переменная для набора суммы }
      i:int; { Счетчик цикла }
  Begin
    Sum:=0; { Начальное определение суммы }
    for i:=0 to n do Sum:=Sum+m+Combination(i,m); { Набор суммы }
    S:=Sum; { Определение значения функции }
  End;
VAR n,m:int;
BEGIN
  Write('Введите m '); { Вывод приглашения }
  ReadLn(m); { Ввод m }
  Write('Введите n '); { Вывод приглашения }
  ReadLn(n); { Ввод n }
  WriteLn('S(',n,')=',S(n,m)); {Вычисление и вывод суммы}
END.