Запрос на расчет чисел от 0001 до 9999 - Turbo Pascal

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

Добрый вечер не разбираюсь в паскале, но как сделать запрос, чтобы вывелся список цифр от 0001 до 9999, и главное чтобы все цифры имели вид *0001@ *0002@ *0003@ И так далее, в общем чтобы еще и добавлялись знаки * и @ в начале и концы. Спасибо заренее

Решение задачи: «Запрос на расчет чисел от 0001 до 9999»

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

begin
for var a:=1 to 9999 do
 begin
  if a<10 then write('*000',a,'@ ')
  else if a<100 then write('*00',a,'@ ')
  else if a<1000 then write('*0',a,'@ ')
  else write('*',a,'@ ');
  if a mod 10=0 then writeln;
 end;
end.

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

В цикле for переменной a присваивается значение от 1 до 9999.
В условии if проверяется, является ли значение a меньше 10. Если это так, то к числу добавляется строка *000 и символ @.
Если значение a меньше 100, то к числу добавляется строка *00 и символ @.
Если значение a меньше 1000, то к числу добавляется строка *0 и символ @.
Если значение a больше 1000, то просто к числу добавляется строка *.
После каждого вычисления числа, если оно делится на 10 без остатка, то к числу добавляется символ writeln.
Цикл for завершается, когда значение a достигает 9999.