Программа

PROGRAM Sum1;
VAR n:integer; { Исходный параметр }
    k:integer; { Счетчик }
    Sum:real;  { Сумма }
BEGIN
  WriteLn;             { Пропуск строки }
  Write('Введите n '); { Вывод приглашения ввести n }
  ReadLn(n);           { Ввод n }
  Sum:=0;              { Обнуление суммы }
  for k:=n downto 1 do Sum:=Sum+1/k;  { Набор суммы }
  WriteLn('Сумма равна ',Sum)    { Вывод набранной суммы }
END.






















































  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
         :
   *****************

  *               *
         n
 *               *

*****************
         :
         :
 *****************
 *               *
 *    Sum:=0     *
 *               *
 *     k:=n      *
 *               *
 *****************
         :
         :∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙.
         :                       :
         :                       :
         :               *****************
         :               *               *
         :               *  Sum:=Sum+1/k *
         :               *               *
         :               *    k:=k+1     *
         :               *               *
         :               *****************
         :                       :
         *                       :
       *   *                     :
     *       *                   :
   *           *    Нет          :
 *      i<1      * ..............:
   *           *
     *       *
       *   *
         *
         :
         : Да
         :
   *****************

  *               *
        Sum
 *               *

*****************
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************