Вычислить сумму ряда - Turbo Pascal (28950)

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

Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

Решение задачи: «Вычислить сумму ряда»

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

var S,d:real;
    i:integer;
begin
S:=0;
repeat
write('Введите d>=0 d=');
readln(d);
until d>=0;
for i:=2 to 15 do
S:=S+sqrt(i*d);
writeln(S:0:2);
end.

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

Создаются переменные S, d и i типа real и integer соответственно.
Переменная S инициализируется значением 0.
Запускается цикл repeat-until, который продолжается до тех пор, пока значение переменной d больше или равно 0.
Внутри цикла запрашивается ввод значения переменной d с помощью функции readln.
После того как значение d получено, происходит вычисление суммы S с использованием формулы S = sqrt(i * d) для i от 2 до 15.
Значение суммы S сохраняется в переменной S.
Выводится значение S с помощью функции writeln.
Конец программы.