PROGRAM INPUT SEDERHANA LAINNNYA(PROG 14)

PROGRAM PROG14;
USES WINCRT;
VAR
     HARGA,JUMLAH,PECAH,DISKON,BAIK,HARGA_DISKON,TOTAL,TOTAL_DISKON : REAL;
BEGIN
     WRITE(' 1. HARGA TELOR            = Rp.'); READLN(HARGA);
     WRITE(' 2. JUMLAH TELOR(BIJI)     =    '); READLN(JUMLAH);
     WRITE(' 3. TELOR YANG PECAH(BIJI) =    '); READLN(PECAH);
     WRITE(' 4. DISKON(%)              =    '); READLN(DISKON);
     BAIK := JUMLAH-PECAH;
     HARGA_DISKON := (DISKON/100)*(HARGA*BAIK);
     TOTAL := HARGA*BAIK;
     TOTAL_DISKON := TOTAL-HARGA_DISKON;
     WRITELN('      TELOR YANG BAIK       =    ',BAIK:10:0);
     WRITELN('      HARGA TOTAL DISKON    = Rp.',HARGA_DISKON:10:0);
     WRITELN('      TOTAL BAYAR           = Rp.',TOTAL:10:0);
     WRITELN('     ----------------------------------');
     WRITELN('       TOTAL BAYAR SETELAH DISKON  = Rp.',TOTAL_DISKON:10:0);
END.

HASIL