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

Текст программы на Паскале:varmassiv: array[1..8] of integer;summa: integer;i: integer;beginsumma:= 0;for i:= 1 to 8 do beginwriteln(\'Введите \',i,\'-й элемент массива: \');readln (massiv[i]);end;for i:= 3 to 8 do beginsumma:=summa+ massiv[i]* massiv[i]; end;writeln(\'Сумма квадратов последних 6 элементов массива равна: \',summa);end.