Program Membuat Pola Berbentuk Bintang

program bintang;
uses wincrt;
var i,n,j:integer;
begin
writeln('Masukkan tingkat yang diinginkan');
readln (n);
for i:=n downto 1 do
begin for j:=1 to n do
begin if(j<i) then
write (' ')
else
write ('*'); write(' ');
end;
writeln;
end;
end.

Tampilan ketika program ini di run adalah sebagai berikut :