Написати програму обчислення 1/2+1/3+1/4+...+1/х, де х-ціле число

Код ниже

Объяснение:

program sumFractions;

var i, x: integer;

   S : real;

begin

   writeln('Введите число x: ');

   readln(x);

   S := 0;

   for i := 2 to x do begin

       S := S + 1/i;

   end;

    writeln('Сумма дробей S = ', S);    

end.