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

Question

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

Answer 1

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

Comments

var
n: integer;

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