40 баллов даю! Паскаль. Массив из 17 целых чисел. обусловьте сумму

const n = 17;

var

 mas:array [1..n] of integer;

 i, sum:integer;

begin

randomize;

for i := 1 to n do

begin

 mas[i]:= random(10);

 write(' ',mas[i], ' ');

end;

writeln();

sum := 0;

for i:= 5 to 10 do

 sum := sum + mas[i];

writeln('Сумма с 5 по 10 = ',sum);

end.