Вывести трехзначные числа кратные 7 используя while pascal

Var  n: integer;
begin  n := 100;  while (n <= 999) do  begin    if n mod 7 = 0 then      write(n, ' ');    n += 1;  end;end.