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

Var
  i,k,s:integer;
begin
  k:=0; s:=0;
  i:=7;
  Writeln(Числа на интервале [7;100], кратные 7:);
  while i    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