Вычислить сумму конечного ряда - PascalABC.NET

Вычислить сумму конечного ряда: S = 1+1/2+1/3+...+1/50, Вывести числа в интервале от 10 до 100, кратные 3

Листинг программы

s:=0;
for i:=1 to 50 do
s:=s+1/i;

Объяснение кода листинга программы

Объявляется переменная s типа real и инициализируется значением 0.
Запускается цикл for от 1 до 50.
Внутри цикла значение переменной i последовательно принимает значения от 1 до 50.
Каждое значение переменной i используется для вычисления дробной части числа 1/i.
Полученное значение дробной части числа 1/i прибавляется к текущему значению переменной s.
После завершения цикла значение переменной s будет содержать сумму всех дробных частей чисел от 1/1 до 1/50.