Pascal - Membuat Piramida Bintang

Kode program di bawah ini untuk membuat tampilan piramida yang terdiri dari karakter bintang (*), dimana nilai yang di input pertama kali merupakan jumlah bintang dasarnya.


Berikut kode programnya :

program bintang_piramid;
uses crt;
var a,b,c,jlh : integer;
begin
clrscr;
write ('masukkan jumlah bintang dasar : ');readln(jlh);
writeln;

if jlh mod 2 = 0 then
for a := 1 to (jlh div 2) do begin
for b := 1 to (jlh div 2)-a do
write (' ');
for c := 1 to (a*2) do
write ('*');
writeln;
end

else
for a := 1 to (jlh div 2)+1 do begin
for b := 1 to (jlh div 2)+(1-a) do
write (' ');
for c := 1 to (a*2)-1 do
write ('*');
writeln;
end;
readln;
end.

Dan bila dijalankan maka hasilnya sebagai berikut :