program pascal rek. air

Program Rek_PDAM;
uses wincrt;
var
no,nm,jenis:string;
beban,lalu,skrg,j_pakai,biaya,j_byr: longint;
begin
writeln('Selamat Datang Diprogram Rekening PDAM');
write('No Pelanggan : ');readln(no);
write('Nama : ');readln(nm);
write('Jenis Pelanggan : ');readln(jenis);
write('Bulan Lalu : ');readln(lalu);
write('Bulan Sekarang : ');readln(skrg);
j_pakai:=skrg - lalu;
writeln('Jumlah Pakai : ',j_pakai);
if jenis = 'R1' then
begin
beban:=5000;
if j_pakai <=50 then
begin
biaya:=500;
end
else
if j_pakai <80 then
begin
biaya:=1000;
end
else
if j_pakai >80 then
begin
biaya:=1500;
end
end
else
if jenis = 'R2' then
begin
beban:=10000;
if j_pakai <=50 then
begin
biaya:=1000;
end
else
if j_pakai <80 then
begin
biaya:=1500;
end
else
if j_pakai >80 then
begin
biaya:=2000;
end
end
else
if jenis = 'R3' then
begin
beban:=15000;
if j_pakai <=50 then
begin
biaya:=1500;
end
else
if j_pakai <80 then
begin
biaya:=2000;
end
else
if j_pakai >80 then
begin
biaya:=2500;
end
end;
writeln('Biaya Beban : ',beban);
writeln('Biaya Perkubik : ',biaya);
j_byr:=(biaya*j_pakai) + beban;
writeln('Jumlah Bayar : ',j_byr);
end.