Вычислить сумму из квадратного корня - Turbo Pascal

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

                    Листинг программы
                
 
                        
                          
                    
var i:integer;
     s:real;
begin;
      for i:=57 downto 3 do
      s:=0;
      i:=i-3;
      s:=Sqrt(i+s);
      WriteLn(s:13:11);
      ReadLn;
end.

Объясните пожалуйста , где ошибки , как правильно расчёт сделать ?

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

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

var
  c: integer;
  sum: real;
begin
  c := 57;
  sum := 0;
  while c >= 3 do
  begin
    sum := sqrt(sum + c);
    c := c - 3;
  end;
  write(sum);
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения математических задач и может использоваться для написания программ, которые выполняют вычисления с числами и формулами. В данном конкретном примере кода, мы имеем переменные c и sum. Переменная c содержит значение 57, а переменная sum инициализируется как 0. Затем следует цикл while, который выполняется до тех пор, пока значение переменной c больше или равно 3. Внутри цикла выполняется вычисление квадратного корня из суммы переменной sum и значения переменной c. Затем значение переменной c уменьшается на 3. После завершения цикла, значение переменной sum записывается в выходной поток. Таким образом, данный код вычисляет квадратный корень из суммы числа 57 и последовательных чисел, уменьшаясь на 3, пока значение переменной c не станет меньше 3. Результат выводится на экран.