program Menghitung_besarnya_diskon;
uses crt;
var
kodebarang,namabarang : string;
hargasatuan,jumlah,hargatotal,Bayar : integer;
diskon,total,besardiskon : real;
begin
write('Masukan Nama Barang   = '); readln(namabarang);
write('Masukan Kode Barang   = '); readln(kodebarang);
write('Jumlah Barang         = '); readln(jumlah);


if ( kodebarang = 'PK01' )
   then
   begin
namabarang := 'pakaian';
hargasatuan := 75000;
end;
    hargatotal := jumlah * hargasatuan;
   diskon := 0 ;

   if ( kodebarang = 'PK01') and ( jumlah >= 10 )
   then
   begin
   write('Besar Diskon ( % )   : '); readln(besardiskon);

   diskon := BesarDiskon/100 * Hargatotal ;
   end
     else
if ( kodebarang = 'TS02' )
   then
   begin
        namabarang := 'tas';
        hargasatuan := 65500;
   end;

   hargatotal := jumlah * hargasatuan;
   diskon := 0 ;

   if ( kodebarang = 'TS02') and ( jumlah >= 10 )
   then
   begin
   write('Besar Diskon ( % )   : '); readln(besardiskon);

   diskon := BesarDiskon/100 * Hargatotal ;
   end;

   //layar keluaran

  total := HargaTotal - Diskon;
  clrscr;
  gotoxy(36,1); textcolor(red); write('TOKO GPS STORE');
  gotoxy(36,2); write('--------');
  gotoxy(30,4); write('Kode Barang   : ',kodebarang);
  gotoxy(30,5); write('Nama Barang   : ',namabarang);
  gotoxy(30,6);
  write('Harga Satuan Rp.  ',HargaSatuan:7);
  gotoxy(30,7); write('Jumlah Beli   : ',jumlah);
  gotoxy(30,8); write('Harga Total   : Rp. ',HargaTotal:7);
  gotoxy(30,9); write('Diskon        :Rp. ',Diskon:9:1);
  gotoxy(30,10); write('Total Bayar   : Rp. ',Total:9:1);
  readln;

end.