(Pascal) Дан массив целых чисел из 8 элементов. Найти сумму квадратов последних шести элементов

Фрагмент кода, в котором осуществляется расчет. Не забудь объявить массив и переменную для суммы и индекса. Удачи.Sum:=0;For i := n downto n-6 doBegin   sum:= sum + arr[i];End;