program diskon_belanja "Pasxal"

program diskon_belanja;
uses crt;
var
harga, diskon, total : real;
begin
clrscr;
write('masukan total belanja : Rp.'); readln(harga);
if harga >= 100000 then
diskon := harga * 0.02;
total := harga - diskon;

writeln('jumlah diskon : Rp.', diskon:0:0);
writeln('jumlah total harga belanja : Rp.', total:0:0);
readkey;
end.