Найти сумму N чисел натурального ряда кратных 7, начиная с k>0, N> 0, N и K вводятся с клавиатуры.

program zz1;

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

begin

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

read (n);

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

read (k);

i:=k;

c:=0;

while c < = 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.