Найти сумму N чисел натурального ряда кратных 7, начиная с kamp;gt;0,

program zz1;

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

begin

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

read(n);  

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

read(k);  

i:=k;

c:=0;

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

begin

if i mod 7 = 0 then begin b:=b + i; c:=c + 1; end; // проверяем, если число при делении на 7, в остатке дает 0, то прибавляем число к сумме

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

end;

write( сумма N чисел натурального ряда кратных 7 = , b); // выводим ответ

end.