PROGRAM DISKON BAJU

program DiskonBaju2; 

Uses crt;

Var HargaNormal,ProsenDiskon,TotalBelanja,TotalBayar:integer;

    BesarDiskon,HargaAkhir:real;

Begin

        Clrscr;

        Write('Masukkan Total harga pembelian:');

        Readln(TotalBayar);

        if (TotalBelanja>=200000) then

            ProsenDiskon:=25;

        Else

            ProsenDiskon:=20;

        BesarDiskon:=(ProsenDiskon/100)*TotalBelanja;

        TotalBayar:=Totalbelanja-BesarDiskon;

        Writeln('Total yang harus dibayar adalah: ',TotalBayar:6:2);

        Readln;

End.