Source Code - Cara Membuat Program Diskon dengan Pascal

Kondisi kasus/soal : Buatlah program Diskon Harga dengan menggunakan Pascal. Dimana yang diinput adalah Nama barang, jumlah barangnya dan harga satuannya. Dari input tersebut di dapatlah Total Harga Barang. Berdasarkan Total Harga Barang berilah Diskon.
Jika dibawah 100000 maka diskonnya sebesar 1%
Jika diantara 100000 - 500000 maka diskonnya sebesar 5%
Jika diantara 500000 - 1000000 maka diskonnya sebesar 7%
Jika di atas 1000000 maka diskonnya sebesar 10%
Hitunglah Total Harga Barang akhir (Total Bayar)?

Program Diskon_harga;
uses wincrt;
var
tipe:char;
nama: string[20];
jumlah, harga: real;
discount, bayar, total: real;

begin
write(' Nama Barang  = ');readln(nama);
write(' Jumlah Barang = ');readln(jumlah);
write(' Harga Satuan = ');readln(harga);
total:= jumlah*harga;
writeln('---------------------------------');
writeln(' Total Beli  :  ',total:9:2);

if total <=100000 then discount:=1/100*total;

if total >=100000 then discount:=5/100*total;

if (total >=500000) then discount:=7/100*total;

if total >=1000000 then discount:=10/100*total;

writeln(' diskon      :  ',discount:9:2); bayar:= total-discount;
writeln('____________________-_');
writeln(' Total Bayar : ', bayar:9:2);

end.