Вывести числа от 7 до 100, кратные 7, используя while.Посчитать их количество и сумму.Язык-Паскаль.

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