Как вывести числа от 1 до 1300 в Pascal - Free Pascal

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

Добрый вечеру форумчанам, ну в общем все в названии темы. Нужно вывести числа от 1 до 1300 по порядку. Чтобы потом их можно было бы скопировать. Но и еще если такое возможно, чтобы в начале каждого числа с новой строки была любой значек, и после числа любой другой значек Например: &1* &2* &3* &4* ... &1299* &1300* Заранее спасибо за помощь.

Нашел сам такой вариант

program posledovat1;
var
  w:integer;
 
begin
 
w:=0;
repeat
  w:=w+1;
  write(w,'@ *');
until w=1347
end.

Решение задачи: «Как вывести числа от 1 до 1300 в Pascal»

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

var i: integer;
begin
  for i := 1 to 1300 do writeln('&', i, '*')
end.

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

В данном коде на языке Pascal реализована простая программа, которая перебирает числа от 1 до 1300 и выводит их на экран с шагом в 100. Вот список описывающих это действий:

Объявляется целочисленная переменная i типа integer.
Задаётся диапазон значений для перебора с помощью цикла for от 1 до 1300.
Внутри цикла на каждой итерации вызывается функция writeln, которая выводит на экран значение переменной i и символ '*'.
Каждое новое значение переменной i добавляется к выводимой строке с помощью символа '&'.
Цикл выполняется 1300 раз, выводя на экран все числа от 1 до 1300 с шагом в 100. Список выводимых чисел и символов:
&1*
&2* ...
&1300*