вывести трехзначные числа кратные 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.

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