ini adalah Diskon

uses crt;
var
        Jenis:string;
        Harga:Real;
        HargaDiskon:Real;
        Hargaakhir:real;
BEGIN
        CLRSCR;
        WRITELN('Masukan Jenis Barang: ');
        READLN(Jenis);
        WRITELN('Masukan Harga Barang: ');
        READLN(Harga);
        Case Jenis of
        'a': hargadiskon := 0.1*harga;
        'b': hargadiskon := 0.15*harga;
        'c': Hargadiskon := 0.2*harga;
        End;
        HargaAkhir:=harga- hargadiskon;
        WRITELN('Harga Barang Setelah Didiskon: ',hargaakhir);
        READLN();
ENd.