Membuat Segitiga "Bintang" Dengan Pascal 2

program segitiga_bintang_2;
uses wincrt;
var
i,j,n:integer;
begin
write('Masukkan ukuran segitiga = ');readln(n);
for j:=n downto 1 do
begin
for i:=1 to j do
write('*');
writeln;
end;
readln;
end.

Membuat Segitiga "Bintang" Dengan Pascal 1

program segitiga_bintang_1;
uses wincrt;
var
i,j,a:integer;
begin
write('Maukkan ukuran segitiga = ');readln(a);
for i:=1 to a do
begin
for j:=1 to i do
write('*');
writeln;
end;
readln;
end.