//найти сумму 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 ('конец программы'); <span>end.</span>