Cara Membuat Segitiga Sama Sisi Terbalik di Pascal

Halo selamat malam, hari ini saya akan membagikan cara membuat segitiga sama sisi tapi terbalik
silahkan dilihat dan dipelajari

uses crt;
var a, b, tinggi :integer;
begin
clrscr;
write('Masukkan Tinggi : '); readln(tinggi);
for a:= tinggi downto 1 do
begin
        for b:= tinggi downto a+1 do
        begin
        write(' ');
        end;
        for b:= 1 to (2*a)-1 do
        begin
        write('*');
        end;
        writeln();
        end;
readkey;
end.