В зависимости от числа строк вывести пирамиду из "*" - Free Pascal

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

Нужно в зависимости от числа строк вывести пирамиду из *. Число строк от 1 до 20. Спасибо!

Решение задачи: «В зависимости от числа строк вывести пирамиду из "*"»

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

var n,i,j:byte;
begin
  repeat
    write('n='); readln(n);
  until n in [1..20];
  for i:=1 to n do
  begin
    write('':(n+1-i));
    for j:=1 to 2*(i-1)+1 do write('*');
    writeln;
  end;
  readln
end.

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

В коде используется язык программирования Free Pascal.
Задача программы - создание пирамиды из символа * в зависимости от числа строк, указанных пользователем.
Переменная n используется для хранения числа строк, которое вводит пользователь.
Цикл repeat используется для повторного запроса ввода числа строк, если введенное число не находится в диапазоне от 1 до 20.
В цикле for переменной i присваиваются значения от 1 до n.
В каждой итерации цикла for выводится строка, состоящая из n-i+1 пустых символов.
В цикле for переменной j присваиваются значения от 1 до 2(i-1)+1, чтобы создать пирамиду из `` в требуемом формате.
В каждой итерации цикла for выводится символ * на каждую строку пирамиды.
После завершения цикла for выводится символ n для перехода на новую строку.
После завершения цикла for программа завершается.