Menghitung Gaji Pegawai dengan Turbo Pascal

Uses Crt;

Var

   Nip                   :string;

   Nama               :string;

   Golongan         :string;

   Gaji                  :longint;

   Tunjangan, TotalGaji:Real;

Begin

     Clrscr;

     writeln('Menghitung Gaji Pegawai');

     write  ('Input Nomor Induk Pegawai :'); Readln(Nip);

     If      Nip                       ='1001' then

             Nama                    :='ZULVAN'

     Else If Nip                    ='1002'then

             Nama                   :='YUNUS'

     Else if Nip                     ='1003' then

             Nama                   :='UCOK';

     Writeln('Nama                  ;', Nama);

     Write('input Golongan          :'); Readln(Golongan);

     If      Golongan                                ='III A'then

              Gaji                                        :=5000000

     Else if Golongan                              ='III B'then

              Gaji                                         :=6000000

     Else if Golongan                              ='III C'then

              Gaji                                         :=7000000;

     Tunjangan:= 0.1 * Gaji;

     TotalGaji:= Tunjangan + Gaji;

     Writeln('Gaji Pokok Anda Adalah ;',Gaji);

     writeln('Tunjangan  Anda Adalah  ;',Tunjangan:1:0);

     writeln('Total Gaji Anda Adalah   ;',TotalGaji:1:0);

     Readln;

End.

Contoh hasilnya seperti di bawah ini: