Записать программу которая находит сумму ряда 1 + 1/2 + 1/3 + … + 1/n

Подобные суммы правильнее вычислять, начиная с меньших значений членов из-за особенностей компьютерной арифметики.

Хотя, безусловно, на значениях до 100000 разницы не будет видно.

// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018// Внимание! Если программа не работает, обновите версию!begin  Range(ReadInteger,1,-1).Select(t->1/t).Sum.Println;end.Пример504.49920533832942