Создать цикл вывода 1000 чисел - Pascal ABC

Формулировка задачи:

Помогите создать цикл вывода 1000 последовательных чисел

Решение задачи: «Создать цикл вывода 1000 чисел»

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

const n=1000;
var i:integer;
 
BEGIN
     i:=0;
     While (i<n) do
     begin
          Inc(i);
          WriteLn(i);
     end;
END.

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

В данном коде объявлены две переменные: n и i. Переменная n имеет значение 1000, а переменная i является целочисленной. Далее идет цикл While, который выполняется до тех пор, пока значение переменной i меньше значения переменной n. Внутри цикла увеличивается значение переменной i на единицу и выводится на экран. После завершения цикла выводится символ новой строки для перехода на следующую строку.