{ project8.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Calculations;

function Factorial(N: LongInt): LongInt;
{ вычисляет факториал от N, N>=0 }
var
   F, i: LongInt;
begin
   F := 1;
   if N > 0 then
      for i := 1 to N do
         F := F*i;
   Factorial := F;
end;

function Harmonic(N: LongInt): Real;
{ для заданного N>0 вычисляет сумму ряда 1+1/2+1/3+...+1/N }
var
   i: LongInt;
   Sum: Real;
begin
   Sum := 1;
   for i := 2 to N do
      Sum := Sum + 1/i;
   Harmonic := Sum;
end;

var
   N1, N2, Fact: LongInt;
   H: Real;

begin
   Write('Введите число для вычисления факториала =>_');
   ReadLn(N1);
   Write('Введите число для вычисления суммы гармонического ряда =>_');
   ReadLn(N2);
   Fact := Factorial(N1);
   H := Harmonic(N2);
   WriteLn(N1,'!=', Fact);
   WriteLn('Сумма гармонического ряда от ', N2, ' равна ', H:4:4);
   ReadLn;
end.