PROGRAM INPUT_DATA_PENJUALAN_BARANG

PROGRAM INPUT_DATA_PENJUALAN_BARANG;
USES CRT;
VAR
    NM : STRING;
    HRGA,JML1 : LONGINT;
    JML,DISKON : REAL;
BEGIN
CLRSCR;
    WRITELN;
    WRITELN('===================================================');
    WRITELN('            INPUT DATA PENJUALAN BARANG            ');
    WRITELN('===================================================');
    WRITELN;
    WRITE('NAMA PELANGGAN                         = '); READLN (NM);
    WRITE('NAMA BARANG                            = '); READLN (NM);
    WRITE('HARGA BARANG                           = '); READLN (HRGA);
    WRITE('JUMLAH BARANG                          = '); READLN (JML1);
    WRITELN('===================================================');
    JML := JML1 * HRGA;
    WRITELN('JUMLAH HARGA BARANG                    = ', JML:6:2);
    IF JML >= 5000000 THEN WRITELN ('DISKON                                 = 200.000') ELSE
    WRITELN ('DISKON                                 = 50.000');
    IF JML >= 5000000 THEN DISKON := JML - 200000;
    IF JML < 5000000 THEN DISKON := JML - 50000;
    WRITELN('===================================================');
    WRITELN('JUMLAH HARGA BARANG SETELAH DI DISKON  = ', DISKON:6:2);
READLN
END.