Вычислить значение выражения, используя операторы циклов - Turbo Pascal

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

составить программу , содержащую операторы циклов и обеспечивающую вычисление значения величины заранее спасибо

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

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

Const n=52;
Var X:array[1..n] of real;
    y:real;
    i:integer;
Begin
    y:=0;
    For i:=1 to n do
    Begin
      X[i]:=random*10;
      write(X[i]:6:2);
      if (i<>1)and(i<>n) then y:=y+2*X[i]
       else y:=y+X[i];
    End;
    writeln;
    writeln('Y = ',y:0:2);
    readln;
End.

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

В начале кода объявляются константа n и переменные X, Y и i.
Переменная Y инициализируется значением 0.
Затем идет цикл For, который выполняется от 1 до n (n - 1 раз).
Внутри цикла переменная X[i] инициализируется случайным числом от 0 до 9 (random*10).
Затем выводится значение X[i] с точностью до двух знаков после запятой.
Если i не равно 1 и i не равно n, то переменная Y увеличивается на 2 * X[i].
Если i равно 1 или i равно n, то переменная Y увеличивается на X[i].
После завершения внутреннего цикла выводится значение переменной Y.
Программа завершается, и пользователю предлагается ввести что-либо для чтения.