Программа

VAR S:real;
    m,i,n:integer;
    Fact_i,Fact_m,FactDif_im:real; { Факториалы }
BEGIN
  Write('Введите m '); { Вывод приглашения }
  ReadLn(m); { Ввод m }
  Write('Введите n '); { Вывод приглашения }
  ReadLn(n); { Ввод n }
  Fact_i:=1; Fact_m:=1; {Начальное определение факториалов}
  for i:=2 to m do Fact_m:=Fact_m*i; { Набор m! }
  for i:=2 to m-1 do Fact_i:=Fact_i*i; { Набор i! }
  S:=m*m+1; { Начальное определение суммы }
  for i:=m to n do { Цикл набора суммы }
  begin
    if i=m
    then FactDif_im:=1 {Начальное определение (i-m)!}
    else FactDif_im:=FactDif_im*(i-m);
    Fact_i:=Fact_i*i; { Набор i! }
    S:=S+(m+Fact_i/Fact_m/FactDif_im); { Набор суммы }
  end;
  WriteLn('S=',S); { Вывод S }
END.