Program Pascal Kepemilikan Mobil Menggunakan IF

Berikut adalah program pascal kepemilikan mobil menggunakan if

1.Programnya

Program KreditPemilikanMobil;
uses crt;
var
   Ptetap,Ptambahan,Pkeluarga,JumlahP   :real;
begin
     clrscr;
     Writeln('Program Kredit Pemilikan Mobil');
     Write('Input Gaji Pokok      :');readln(Ptetap);
     Write('Input Gaji Tambahan   :');readln(Ptambahan);
     Write('Input Gaji Keluarga   :');readln(Pkeluarga);

     Ptambahan:=Ptambahan/2;
     Pkeluarga:=Pkeluarga/3;

     JumlahP:=Ptetap+Ptambahan+Pkeluarga;
     Writeln('Jumlah Pendapatan          Rp:',JumlahP:0:0);

     If JumlahP>=1000000 then
        Writeln('Mendapat Kredit Sedan')
     else if (JumlahP>500000) and (JumlahP<1000000) then
          Writeln('Mendapat Kredit Minibus')
     else
         Writeln('Tidak Berhak Mendapat Kredit');
         readln;

end.


2.Program pascal

3.Hasilnya