Program pada pascal mencari rabat diskon

Program pada pascal mencari rabat diskon

program hitung_diskon_harga;
uses wincrt;
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.