//найти сумму N чисел натурального ряда кратных 7,
//начиная с k>0, N> 0,N и K вводятся с клавиатуры.
var k,k1,n,i,s : integer;
begin
s:=0;
i:=0;
writeln ('Введите число K');
readln (k);
k1:=k;
writeln ('Введите число N');
readln (n);
if (k>1) and (n>1) then
begin
while i begin
if (k mod 7)=0 then
begin
s:=s+k;
//writeln (i,' ',k,' ',s);// можно получить промежуточные результаты
k:=k+7;
i:=i+1
end
else k:=k+1;
end;
writeln ('Сумма ',n,' чисел кратных 7 начиная от числа ',k1,' равна ',s);
end;
writeln ('конец программы');
end.