Var i,k,s: integer; begin k: =0; s: =0; i: =7; writeln('числа на интервале [7; 100], кратные 7: '); while i< =100 do begin write(i,' '); s: =s+i; inc(k); i: =i+7 end; writeln; writeln('сумма этих чисел равна ',s,', количество равно ',k); end. результат выполнения программы числа на интервале [7; 100], кратные 7: 7 14 21 28 35 42 49 56 63 70 77 84 91 98 сумма этих чисел равна 735, количество равно 14