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

program zz1;

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

begin

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

read(n);  

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

c:=0;

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

begin

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

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

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

end;

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

end.