Только через while и repeat - Pascal ABC

Формулировка задачи:

Составить программу для вычисления суммы(через while и repeat в ABCPascal): 1/корень(3)+1/корень(8)+1/корень(13)+...+1/корень(38)

Решение задачи: «Только через while и repeat»

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

var
i, k:integer;
sum:real;
begin
sum:=0;
i:=3;
repeat
    sum:=sum + 1/sqrt(i);
    inc(i,5);
until i > 38;
writeln(sum);
end.

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

В данном коде происходит вычисление суммы чисел, начиная с числа 3, с использованием формулы суммы арифметической прогрессии. Переменная sum инициализируется значением 0. Затем, в цикле repeat, происходит последовательное вычисление суммы, прибавление к ней значения 1/sqrt(i) и увеличение значения переменной i на 5. Цикл продолжается до тех пор, пока значение i не станет больше 38. Наконец, после окончания цикла, выводится значение переменной sum.