program penjualan_motor

program penjualan;
uses crt;
var
        np : string;
        diskon, jumlah, kembalian, subtotal, kodeangka, kodemerk, kodebarang, namabarang, hargabarang, jumlahuang, jumlahbarang : real;
begin
clrscr;
        writeln ('        PROGRAM PENJUALAN MOTOR        ');
        writeln ('=======================================');
        writeln ('Selamat Datang di Dealer Motor, ');
        writeln ('Silahkan Pilih Kendaraan yang ingin dibeli');
        writeln;
        writeln ('----------Kode Merk Kendaraan----------');
        writeln ('1=Yamaha       2=Honda        3=Suzuki');
        writeln ('=======================================');
        write ('Masukan Nomer Pembelian :'); readln(np);
        write ('Masukan Kode Merk Motor :'); readln(kodemerk);
        writeln ('=======================================');
if kodemerk=1 then
begin
        writeln ('--------YAMAHA-------');
        writeln ('|KODE| NAMA MOTOR    ');
        writeln ('---------------------');
        writeln ('| 11 | Jupiter MX');
        writeln ('| 12 | Soul GT');
        writeln ('| 13 | Xeon');
        writeln ('| 14 | R25');
        write ('Masukkan Kode Motor yang akan dibeli : ');readln(kodeangka);
        writeln ('=======================================');
        if kodeangka=11 then
        begin
                hargabarang:=30400000;
                writeln ('Nama barang  : Jupiter MX');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=12 then
        begin
                hargabarang:=53000000;
                writeln ('Nama barang  : Soul GT');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=13 then
        begin
                hargabarang:=18500000;
                writeln ('Nama barang  : Xeon');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=14 then
        begin
                hargabarang:=536000000;
                writeln ('Nama barang  : Yamaha R25');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
end;
if kodemerk=2 then
begin
        writeln ('---------HONDA-------');
        writeln ('|KODE| NAMA MOTOR    ');
        writeln ('---------------------');
        writeln ('| 21 | Scoopy');
        writeln ('| 22 | Vario');
        writeln ('| 23 | Beat');
        writeln ('| 24 | CBR 250');
        write ('Masukkan Kode Motor yang akan dibeli : ');readln(kodeangka);
        writeln ('=======================================');
        if kodeangka=21 then
        begin
                hargabarang:=16600000;
                writeln ('Nama barang  : Scoopy');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=22 then
        begin
                hargabarang:=18500000;
                writeln ('Nama barang  : Vario');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=23 then
        begin
                hargabarang:=14300000;
                writeln ('Nama barang  : Beat');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=24 then
        begin
                hargabarang:=50500000;
                writeln ('Nama barang  : CBR 250');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
end;
if kodemerk=3 then
begin
        writeln ('--------SUZUKI-------');
        writeln ('|KODE| NAMA MOTOR    ');
        writeln ('---------------------');
        writeln ('| 31 | Nex');
        writeln ('| 32 | Shogun SP');
        writeln ('| 33 | Satria F');
        writeln ('| 34 | Burgman');
        write ('Masukkan Kode Motor yang akan dibeli : ');readln(kodeangka);
        writeln ('=======================================');
        if kodeangka=31 then
        begin
                hargabarang:=14600000;
                writeln ('Nama barang  : Nex');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=32 then
        begin
                hargabarang:=19500000;
                writeln ('Nama barang  : Shogun SP');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=33 then
        begin
                hargabarang:=22300000;
                writeln ('Nama barang  : Satria F');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
        else
        if kodeangka=34 then
        begin
                hargabarang:=51500000;
                writeln ('Nama barang  : Burgman');
                writeln ('Harga barang : Rp.',hargabarang:12:0);
        end
end;
write ('Banyak jumlah pembelian :'); readln(jumlahbarang);
jumlah:=hargabarang*jumlahbarang;
writeln ('=======================================');
Writeln ('Nomor Pembelian  : ' ,np);
writeln ('Total pembayaran : Rp.',jumlah:12:0);
if jumlah>=20000000 then
begin
        diskon:=10/100*jumlah;
        writeln ('Diskon           : Rp.',diskon:12:0);
end
else
if jumlah<20000000 then
begin
        diskon:=5/100*jumlah;
        writeln ('Diskon           : Rp.',diskon:12:0);
end;
subtotal:=jumlah-diskon;
writeln ('Jumlah total     : Rp.',subtotal:12:0);
writeln ('=======================================');
write ('Masukkan jumlah uang yang dibayar : Rp.'); readln(jumlahuang);
kembalian:=jumlahuang-subtotal;
writeln ('Kembalian                         : Rp.',kembalian:12:0);
readln;
end.