Program Menghitung Diskon 2 (Bahasa Pascal)

Buatlah program untuk menghitung diskon dengan ketentuan: jika membeli tidak kurang dari 5 buah, maka akan mendapat diskon 12,5% dari harga total. 

Tampilkan ke layar kode barang, nama barang, harga satuan, jumlah yang dibeli, diskon dan total bayar.

program Menghitung_Diskon;
uses crt;
{I.S.: user memasukkan kode barang (kb), nama barang (nb), harga satuan (hs)
       dan jumlah yang dibeli (jml)}
{F.S.: menanmpilkan kode barang (kb), nama barang (nb), harga satuan (hs),
       jumlah yang dibeli (jml), diskon dan total bayar (tb)}
var
   kb, nb: string;        {kb= kode barang, nb= nama barang}
   jml: byte;             {jml= jumlah barang yang dibeli}
   hs, ht : longint;      {hs= harga satuan, ht= harga total}
   diskon, tb: real;      {tb= total bayar}
begin
   window(1,1,80,25);textbackground(RED);clrscr;
   textcolor(15);
   writeln('Data Masukan Penjualan Barang');
   writeln('=============================');
   write('Kode Barang   : '); readln(kb);
   write('Nama Barang   : '); readln(nb);
   write('Harga Satuan  : '); readln(hs);
   write('Jumlah Barang : '); readln(jml);
   ht:= hs*jml;                                       {menghitung harga total}
   diskon:= 0;                                        {inisialisasi diskon}
   if (jml >= 5)
      then                                            {menghitung diskon}
         diskon:=0.125 * ht;
   tb:= ht-diskon;                                    {menghitung total bayar}
   clrscr;
   window(1,1,80,25);textbackground(WHITE);clrscr;
   textcolor(0);

   writeln('Data Keluaran Penjualan Barang');
   writeln('==============================');
   writeln('Kode Barang   : ',kb);
   writeln('Nama Barang   : ',nb);
   writeln('Harga Satuan  : Rp. ',hs:10);
   writeln('Jumlah Barang : ',jml,' buah');
   writeln('Diskon        : Rp. ',diskon:10:2);
   writeln('Total Bayar   : Rp. ',tb:10:2);
   readln;
end.