PASCAL BINTANG RATA KANAN,SIKU ATAS..!

PASCAL BINTANG RATA KANAN,SIKU ATAS..!
 INPUTNYA KARAKTER.

===============================================

BERIKUT CODINGNYA..!!!

Program SegitigaPascalTerbalik;
uses crt;
var
   a,b,d:integer;
   c:char; {pemberian bentuk variabel karakter }
begin
     clrscr;
     write('masukkan angka    :'); readln(a);
     write('masukkan karakter :'); readln(c);
     for b:=a downto 1 do
        { downto menghitung dari besar ke kecil,
          dimana dari baris a sampai 1}
      begin
        for d:= a-b downto 1 do
          { menghitung dari jumlah a(banyak angka/baris)
            dikurangi b(urutan baris) sampai 1,
            jadi kolom 1 akan bernilai 0,kolom ke2 1, dan
             tris ke bawah }
        begin
         write(' '); {pemberian sepasinya}
        end;
     for d:= 1 to b do { menampilkan kolom dari 1 sampai baris b }
      begin
       write(c);  { karakter yang ditampilkan }
     end;

     writeln; { agar tersusun ke bawah }

     end;
     readln;
end.