program pembelian_barang

program uts_pembelian_barang;
uses crt;
var
        nama:string;
        nomor,banyak,kode:integer;
        diskon,harga,jumlahbayar,total,subtotal,kembalian:real;
begin
clrscr;
        writeln('============================== ');
        writeln('PROGRAM PEMBELIAN BARANG');
        writeln('============================== ');
        writeln;
        write('Masukkan Nomor Pembelian: '); readln(nomor);
        write('Masukkan Kode Barang (1=HP, 2=Laptop, 3=Sepatu, 4=Tas, 5=Televisi): '); readln(kode);
        write('Masukkan Banyak Barang: '); readln(banyak);
        writeln('============================== ');
        writeln;
if kode=1 then
begin
        nama:= 'Handphone';
        harga:= 2500000
end
else
if kode=2 then
begin
        nama:= 'Laptop';
        harga:= 4000000
end
else
if kode=3 then
begin
        nama:= 'Sepatu';
        harga:= 200000
end
else
if kode=4 then
begin
        nama:= 'Tas';
        harga:= 150000
end
else
if kode=5 then
begin
        nama:= 'Televisi';
        harga:= 4200000
        end;
total:=harga*banyak;
if(total >= 250000) then
begin
        diskon:= ((10/100)*total);
        end;
writeln('Nomor Pembelian : ',nomor);
writeln('Kode Barang     : ',kode);
writeln('Nama Barang     : ',nama);
writeln('Harga Barang    : Rp.',harga:8:2);
writeln('Banyak Barang   : ',banyak);
writeln('Total           : Rp.',total:8:2);
writeln('Diskon          : Rp.',diskon:8:2);
subtotal:=total-diskon;
writeln('Subtotal        : Rp.',subtotal:8:2);
writeln('============================== ');
writeln;
write('Jumlah Bayar    : Rp.');readln(jumlahbayar);
kembalian:=jumlahbayar-subtotal;
writeln('Kembalian       : Rp.',kembalian:8:2);
readln;
end.