Треугольник из звёздочек - Turbo Pascal

нужна написать программу чтоб вышел такой рисунок *** ** *

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

var
  i,j,n:integer;
begin
  readln(n);
  for i:=1 to n do begin
    for j:=i to n do write('*');
    writeln;
  end 
end.

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

В данном коде происходит следующее:

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