Cara Membuat Algoritma Piramid Bintang dengan Menggunakan Bahasa Pascal

Kali ini saya akan membahas gimana sih membuat piramid bintang menggunakan bahasa pascal..
Gini nih caranya.. ヘ(^_^ヘ)

V
V
V


var
i,j,k,l:integer;

begin
writeln('-------------------------------------------------');
writeln('                 PIRAMID                         ');
writeln('-------------------------------------------------');
writeln('Created    : Rima Yunida');
writeln('-------------------------------------------------');

write('Masukkan Jumlah Bintang  : ');readln(i);
writeln(' ');
for j:= 1 to i do
begin
for k:= i downto j do
write(' ');
for l:= 1 to j+j-1 do
write('*');
writeln;
end;
readln;
end.

^
^
^

Keluarannya nanti akan berbentuk seperti ini.. :)

Selamat Mencoba..  (´⌣`ʃƪ)

Semoga Bermanfaat..