Найти сумму "n" чисел последовательности: 2,7,12,17, ...

Program n_1; var i, n:byte; mass:array[1 ... 100] of integer; summ:integer;

beginWrite ('Введите длину массива: ') ; readln (n) ; mass[1]:=2; for i:=2 to n do//beginmass[i]:=mass[i-1]+5; //Writeln (mass[i]) ;

//end; summ:=mass[1];

for i:=2 to 15 dosumm:=abs (summ+mass[i]) ;

Writeln ('Сумма последовательности чисел равна: ', summ) ; end.

Убери комментарии, чтобы показать всю последовательность.