Вычислить сумму произведений всех троек соседних чисел в массиве - Pascal

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

Дан одномерный числовой массив Т(к).Вычислить сумму произведений всех троек соседних чисел.

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

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

[SIZE=2]
uses crt;
[/SIZE][FONT=Courier New][SIZE=2]const n=10;
[/SIZE][/FONT][SIZE=2]var a:array[1..[/SIZE][FONT=Courier New][SIZE=2]n[/SIZE][/FONT][SIZE=2]]of integer;
i,pr,sum:integer;
begin
[/SIZE][FONT=Courier New][SIZE=2]clrscr;
[/SIZE][/FONT][SIZE=2]for i:=1 to [/SIZE][FONT=Courier New][SIZE=2]n[/SIZE][/FONT][SIZE=2] do
begin
a[i]:=i;
write(a[i],' ');
end;
writeln;
sum:=0;
for i:=1 to [/SIZE][FONT=Courier New][SIZE=2]n-2[/SIZE][/FONT][SIZE=2] do
sum:=sum+a[i]*a[i+1]*a[i+2];
writeln('Summa=',sum);
readln
end.
[/SIZE]

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

Объявлены переменные: a (массив), i (для цикла), pr (промежуточная переменная для вычислений), sum (для хранения суммы).
Задано значение константы n (размер массива).
В цикле заполняется массив a значениями от 1 до n.
Выводится содержимое массива a через пробел.
Выводится сумма произведений троек соседних чисел в массиве (от 1 до n-2).
Полученное значение суммы выводится на экран.
Программа ожидает ввода данных с помощью функции readln.