Program Pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan If

Nahhh ini adalah salah satu program pascal Untuk Mendapatkan 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. Tampilan Program dalam Pascal