Program Segitiga Bintang dalam Bahasa Pascal

program piramid;



var a,b,c,d,k  : integer ;
z :char ;

begin
repeat
        
          writeln ('program piramid bintang ');
          writeln ('------------------------------');
          writeln ;
write ('masukkan jumlah bintang terbawah : '); readln (k);
d := k mod 2 ;

           if  d = 0 then
          begin
                    for a := 1 to (k div 2) do
begin
                             for b := 1 to (k div 2)-a do
                             write (' ');
                             for c := 1 to (a*2) do
                             write ('*');
                             writeln;
          end;
          end;
          if  d = 1 then
begin
                    for a := 1 to (k div 2) + 1 do
begin
                             for b := 1 to (k div 2) + (1-a) do
                             write (' ');
                             for c := 1 to (a*2)-1 do
                             write ('*');
                             writeln;
          end;
end;
writeln;
write ('mau coba lagi [Y/T] : '); read (z);
until (z) = 'T';
readln;
readln;

end.