Membuat SegiTiga Bintang dengan Pascal

Sebelumnya ane bingung mau posting apa?.. stelah dipikir - pikir bagus belajar pascal membuat segitiga bindang dengan pascal, mungkin ini terlalu mudah bagi yang bisa.. udah capek cerita panjang lebar, mungkin anda juga capek bacanya.. langsung aja ya..
nah ,.. kalo anda ingin tau bagaimana cara membuat segitiga bintang dengan pascal.. coba anda buka Turbo pascalnya atau pascal aja hehe'.. dan anda COPAS alias Copy Paste script di bawah ini

program bintang_piramid;
uses crt;
var c,a,b,n : integer;
begin
writeln ('-=( CardyMen.Blogspot.com )=-' );
writeln (' --------------------- ');
write ('masukkan angka : ');readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (' ');
for c := 1 to (a*2) do
write ('*');
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (' ');
for c := 1 to (a*2)-1 do
write ('*');
writeln;
end;
end.