seleznev11

Verified answer

//найти сумму 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<n do
        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.