Найти сумму первых трех и последних трех элементов массива - Turbo Pascal

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

Есть одномерные материальные массивы

A=[a_i]_l, B=[b_i]_m, C=[c_i]_n

- вводятся с клавиатуры. Создать процедуру ввода массивов. Для каждого из них определить: - Сумму первых трех и последних трех элементов и вывести их на экран; - Найти их сумму и вывести её на экран.

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

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

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Введите размер массива ',c,' от 6 до ',nmax,'=');
readln(n);
until n in [6..nmax];
writeln('Введите элементы массива, вещественные числа');
for i:=1 to n do
 begin
  write(c,'[',i,']=');
  readln(a[i]);
 end;
end;
procedure Vyvod(a:mas;n:integer;c:char);
var i:integer;
    s,s1,sp:real;
begin
writeln('Масссив ',c);
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
write('Первые 3: ');
s1:=0;
for i:=1 to 3 do
 begin
  write(a[i]:0:2,' ');
  s1:=s1+a[i];
 end;
writeln;
writeln('Их сумма=',s1:0:2);
write('Последние 3: ');
sp:=0;
for i:=n-2 to n do
 begin
  write(a[i]:0:2,' ');
  sp:=sp+a[i];
 end;
writeln;
writeln('Их сумма=',sp:0:2);
s:=s1+sp;
writeln('Их общая сумма=',s:0:2);
end;
var a,b,c:mas;
    l,m,n:integer;
begin
clrscr;
Vvod(a,l,'A');
Vvod(b,m,'B');
Vvod(c,n,'C');
clrscr;
Vyvod(a,l,'A');
Vyvod(b,m,'B');
Vyvod(c,n,'C');
readln
end.

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

В процедуре Vvod считывается размер массива и его элементы. Размер массива проверяется на соответствие допустимому диапазону значений.
В процедуре Vyvod выводится сам массив, а затем первые три и последние три элемента массива. Для этого используется цикл for, который считывает элементы массива с индексами от 1 до 3 и от n-2 до n.
Сумма первых трех и последних трех элементов массива вычисляется и выводится на экран.
В основной части программы создаются три массива a, b и c, инициализируются нулями.
Затем вызываются процедуры Vvod для каждого из массивов, передавая в них размер массива и символ, обозначающий этот массив.
После этого вызываются процедуры Vyvod для каждого из массивов, передавая в них размер массива и символ, обозначающий этот массив.
В конце программы выводится общая сумма всех элементов массива.