Вывести на окно с помощью вложенного цикла пирамидку из звёздочек - Free Pascal

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

Вывести на окно с помощью вложенного цикла пирамидку из звёздочек.

      *
     **
    ***
   ****
  *****
 ******
*******

Решение задачи: «Вывести на окно с помощью вложенного цикла пирамидку из звёздочек»

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

uses crt;
var
  n,j, i: integer;
begin
  n:=10;
  clrscr;
  for i:=1 to n do
    begin
      for j:=1 to n-i+1 do
        write(' ');
      for j:=n-i+1 to n do
        write('*');
      writeln;
    end;
  readln;
end.

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

В начале кода объявляются переменные n, j и i типа integer.
Переменная n инициализируется значением 10.
Очищается экран с помощью функции clrscr.
Запускается вложенный цикл for, который будет выполняться от 1 до n (включительно).
Внутри вложенного цикла for выполняется два вложенных цикла for:
- Первый цикл for выполняет write(' ') для каждого значения j от 1 до n-i+1.
- Второй цикл for выполняет write('*') для каждого значения j от n-i+1 до n.
- После завершения второго вложенного цикла for выполняется writeln для перехода на новую строку.
После завершения вложенного цикла for выполняется readln для ожидания нажатия клавиши.
Код завершается.