Menampilkan Bentuk segitiga dengan pascal

hm.. ada tugas dari kelompok E.
suruh bikin pola segitiga dalam pascal.

nah ini script nya :
program cetak_segitiga;
uses wincrt;
var
i , j , k , n :integer;
begin
write('masukkan nilai n :');readln(n);
for i:=1 to n do
begin
for j:=i to n do
begin
write(' ');
end;
for k:=1 to i do
begin
write('*');
end;
writeln;
end;
end.

hasilnya nanti seperti ini :



klo kita ingin merubah bentuk segitiganya ,,, kita bisa mengubah di loop nya. contoh script berikut.

program cetak_segitiga;
uses wincrt;
var
i , j , k , n :integer;
begin
write('masukkan nilai n :');readln(n);
for i:=1 to n do
begin
for j:=i to n do
begin
write(' ');
end;
for k:=i to j do
begin
write('*');
end;
writeln;
end;
end.

hasilnya akan seperti ini :



Selamat belajar !!!
jangan ragu mencoba hal baru . :D