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

program zz1;

var k, b, i, n, c:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

i:=2; / / записываем в переменную первое число последовательности

c:=0;

while c < n do / / организуем цикл, пока параметр цикла не достигнет n

begin

b:=b + i; / / добавляем число к сумме

c:=c + 1; / / увеличиваем параметр цикла на единицу

i:=i + 5; / / получаем следующее число последовательности

end;

write (' сумма "n" чисел последовательности = ', b); / / выводим ответ

end.