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

а здесь учтено то,что числа должны быть кратны 7? я в этом совсем не разбираюсь,к сожалению(

вот сейчас учтенно, прошу прошения я в первый раз забыл добавить эту строку if c mod 7 = 0 then она и отвечает за проверку кратности числа 7

var a,b,c,d:integer;beginwriteln('введите число с которого начинать считать');readln(a);writeln('введите число на которым окончить счёт');readln(b);d:=0;for c:=a to b dobeginif c mod 7 = 0 thend:=d+c;end;writeln(d);end.