Pascal Mencari Tarif Pemakaian PDAM

Masih dalam penggunaan If then, kali ini kita membahas pascal mencari tarif PDAM. Dengan contoh soal sebagai berikut :

PDAM Kota Makassar menetapkan tarif pemakaian  air bersih per m3-nya ditentukan secara pergolongan dimana golongan ditentukan otomatis berdasarkan jumlah pemakainya. Untuk pemakaian 50 m3 pertama dikenakan biaya Rp. 1500. 51-75 m3 dikenakan Rp. 1750. 76-100 m3 dikenakan Rp. 2000 dan lewat dari 100 dikenakan Rp. 2250. Buatlah programuntuk menghitung jumlah yang harus dibayar pelanggan jika volume air diinput dari keyboard.

=============================================
Program PDAM_Makassar_City;
uses wincrt;
var
gol1,gol2,gol3,gol4,pk,total:longint;
        ulang:char;

Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do

begin
clrscr;
writeln ('Program PDAM Makassar City');
writeln ('++++++++++++++++++++++++++');
write   ('Masukan Jumlah Pemakaian air = ');readln(pk);

writeln;
if (pk <=50) then
gol1 := 1500*pk
else if (pk<=75) then
begin
gol1 :=1500*50;
gol2 :=1750*(pk-50);
end
else if (pk<=100) then
begin
gol1:=1500*50;
gol2:=1750*25;
gol3:=2000*(pk-75);
end
else
begin
gol1:=1500*50;
gol2:=1750*25;
gol3:=2000*25;
gol4:=2250*(pk-100);
end;
total:=gol1+gol2+gol3+gol4;
writeln('Tarif Golongan 1 = Rp.',gol1:8);
writeln('Tarif Golongan 2 = Rp.',gol2:8);
writeln('Tarif Golongan 3 = Rp.',gol3:8);
writeln('Tarif Golongan 4 = Rp.',gol4:8);
writeln('Total            = Rp.',total:8);
writeln;
Writeln('==============================================');
    Writeln('= Created, Ardiansyah. B || 20142205002 ||TI.11 =');
Writeln('==============================================');
    write('Mau cek pemakaian air lagi? [Y/T]: ');
    Readln(ulang);
    end;
end.
==============================================
Berikut hasil outputnya :