program harga_listrik

program harga_listrik;
uses crt;
var
        kwh,pjk,jpakai,total,total2:real;
begin
clrscr;
        kwh:=30;
        writeln('Program Harga Listrik');
        writeln('=====================');
        write('Masukan Jumlah Pemakaian:');readln(jpakai);
        writeln;
        total:=kwh*jpakai;
        pjk:=(10*total)/100;
        total2:=total+pjk;
        writeln('Harga per kwh: Rp.',kwh:5:1);
        writeln('Harga Pajak: Rp.',pjk:5:1);
        writeln('Harga yang harus dibayar: Rp.',total:5:1);
        writeln('Total Bayar: Rp.',total2:5:1);
        readln;
end.