Вычислить значение выражения - Turbo Pascal (247811)

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

даны натуральные числа n и a1...an. Надо вычислить a1+2a2+2a3+...2a(n-1)+an.

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

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

uses crt;
var a:array[1..10] of integer;
    n,i,s:integer;
begin
clrscr;
repeat
write('Введите размер массива от 3 до 10 n= ');
readln(n);
until n in [3..10];
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
s:=a[1]+a[n];
for i:=2 to n-1 do
s:=s+2*a[i];
writeln('Сумма по условию=',s);
readln
end.

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

Объявляются переменные: n, i, s - целочисленные, a - массив целочисленных значений.
В цикле repeat-until пользователю предлагается ввести размер массива от 3 до 10.
В цикле for происходит ввод n целых чисел в массив a.
В переменную s записывается сумма первых n целочисленных значений массива a.
В цикле for (от 2 до n-1) к сумме s добавляются удвоенные значения элементов массива a.
Выводится сообщение с формулой и результатом вычисления суммы по условию.
Завершается работа программы.