pascal bintang menurun

iseng-iseng buat pola bintang menurun dari program pascal. buat yang baru belajar pascal mungkin bisa dicoba-coba ..
uses crt;
var i,n,j :integer;
begin
write ('jumlah bintang =');
readln(n);
for i:= n downto 1 do
begin
for j:= 1 to i do
write('*');
readln;
end;
end.

setelah di run, ini nih hasilnya

semoga bermanfaat, selamat mencoba, semangat ^^