заполняется массив из 10 элементов вычислить сумму первых трёх и последних трёх элементов

var a: array[1..10] of Integer;sum1, sum2,i: Integer;beginwriteln('Введите 10 чисел');for i:=1 to 10 do readln(a[i]);sum1:=a[1]+a[2]+a[3];sum2:=a[8]+a[9]+a[10];writeln('сумма первых 3 элементов: ',sum1);writeln('сумма последних 3 элементов: ',sum2);end.