Membuat Bintang Berbentuk Piramid Di Pascal

Postingan kali ini RSN  akan  memberi tau cara Membuat Bintang Berbentuk Piramid Di Pascal mungkin semuanya uda tau tapi tidak apa-apalah hehe.
Dibawah ini scrip dan Outputnya yang bisa langsung dicoba..:

uses wincrt;
var
a,b,c,d:integer;
begin
write('Masukkan Jumlah Baris Bintang:');
readln(a);
for b:= 1 to a do
begin
for c:= a downto b do
write(' ');
for d:= 1 to b+b-1 do
write('*');
writeln;
end;
readln;
end.

Dan dibawah ini adalah Output dari scrip yang di atas..:

semoga bermanfaat.

sumber :