PROGRAM DISKON BAJU 3

Program DiskonBaju3; {BAGAS N DAN BAGUS F}
Uses crt;
Var HargaNormal,ProsenDiskon:integer;
    BesarDiskon,HargaAkhir,TotalBayar,TotalBelanja:real;
Begin
        Clrscr;
        Write('Masukkan total Harga Barang: ');
        readln( TotalBelanja);
        if(TotalBelanja>=6000000) then
                ProsenDiskon:=20
        else if(TotalBelanja>=6000000) then
                ProsenDiskon:=25
        else
                ProsenDiskon:=15;

        BesarDiskon:=(ProsenDiskon/100)*TotalBelanja;
        TotalBayar:=TotalBayar-BesarDiskon;
        Writeln('Total harga yang harus dibayar adalah: ',TotalBayar:6:2);
        Readln;
end.