pembayaran listrik

uses crt; var daya,pemakaian,total:real; ulang:char; begin repeat clrscr; writeln('Perhitungan biaya pemakaian listrik (Rp.100,- per KWh)'); writeln; write('Besar daya listrik (VA) =');readln(daya); write('Besar pemakaian (Kwh) =');readln(pemakaian); if daya>1300 then if pemakaian > 300 then total:=1.1*pemakaian*150; {denda 10%} if pemakaian <= 300 then total:=0.9*pemakaian*150;{diskon 10%} else if pemakaian > 100 then total:=1.2*pemakaian*150;{denda 20%} if pemakaian <= 100 then total:=0.8*pemakaian*150;{diskon 20%} writeln('total biaya yang harus dibayar Rp.',total:1:0,',-'); writeln('Tekan sembarang tombol untuk mengulang atau X untuk keluar'); ulang:=readkey; until upcase(ulang)='X'; end.