discount

program hitung_diskon_harga;

uses crt;

var harga, diskon, total : real;

begin clrscr;

writeln ('MENGHITUNG DISKON DAN TOTAL HARGA BELANJA');

write   ('Masukkan Jumlah Harga : Rp ' ); readln (harga);

if harga > 300000 then

begin

writeln('Mendapat Diskon 40%');

diskon := harga * 0.4; total := harga - diskon; end

else

if (harga>= 150000) and (harga<=300000) then

begin

writeln('Mendapat Diskon 20%');

diskon := harga * 0.2; total := harga - diskon; end

else

if harga < 150000 then

begin

writeln('Mendapat Diskon 10%');

diskon := harga * 0.1; total := harga - diskon; end;

write ('Jumlah diskon : Rp ', diskon:0:0); readln;

write ('Jumlah Harga Setelah Diskon    : Rp ', total :0:0 ); readln;

end.