Найти все числа диапазона, кратные 3 - Turbo Pascal

Найдите все натуральные числа от 1 до 1000, кратные 3, с использованием двумерного массива

Листинг программы

var n: Integer;
begin
  n:=3; while n<=1000 do Write(' ',n); Inc(n,3); end; WriteLn;
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal происходит следующее:

Объявляется переменная n типа Integer.
Задается начальное значение переменной n равное 3.
Запускается цикл while, который выполняется до тех пор, пока значение переменной n не станет больше или равно 1000.
Внутри цикла выводится пробел с помощью функции Write и текущее значение переменной n.
После этого значение переменной n увеличивается на 3 с помощью функции Inc.
После завершения цикла выводится символ новой строки с помощью функции WriteLn. Таким образом, данный код выводит все числа диапазона от 3 до 1000, кратные 3.