CONTOH MENENTUKAN BONUS PEGAWAI

Buatlah program untuk menentukan bonus pegawai, berdasarkan ketentuan yang diberikan oleh bagian personalia dan keuangan sebagai berikut : Pegawai perusahaan digolongkan menjadi  dua golongan, yaitu staff dan non staff. Staff akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staff yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staff yang telah bekerja lebih dari 5 tahun akan mendapatkan bonus Rp. 400.000 jika umur lebih dari 50 tahun  sedangkan pegawai non staff yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000.
=========================================
Program Bonus_Ardiansyah;
uses wincrt;
var
kerja,usia : real;
golongan : integer;
nama : string;
ulang:char;
Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
Begin
ClrScr;
writeln('          =========================================          ');
writeln('          =  BONUS KARYAWAN PT IkhAdyt@gmail.com  =          ');
writeln('          =========================================          ');
writeln;
write('Masukkan Nama Anda : ');readln(nama);
write('Masukkan Golongan [1(Staf)/2(NonStaf)] : ');readln(golongan);
writeln;
writeln('=========================================');
writeln;
case golongan of
     1:
     begin
          write('Lama Bekerja : ');readln(kerja);
          write('Usia Anda    : ');readln(usia);
          if (kerja >=5) and (usia >=50) then writeln('Bonus        : 1000000')
          else if (kerja >=5) and (usia <= 50) then writeln('Bonus        : 500000')
          else if (kerja <=5) and (usia >= 0) then writeln('Bonus : 300000')
          else writeln('Tidak ada bonus ta sodara')
     end;
     2:
     begin
          write('Lama Bekerja : ');readln(kerja);
          write('Usia Anda    : ');readln(usia);
          if (kerja >= 5) and (usia >= 50) then writeln('Bonus        : 400000')
          else if (kerja >=5) and (usia <= 50) then writeln('Bonus        : 250000')
          else writeln('Tidak ada bonus ta broo')
     end;
end;
writeln;
Writeln('==============================================');
    Writeln('= Created, Ardiansyah. B || 20142205002 ||TI.11 =');
Writeln('==============================================');
    write('Mau cek bonus lagi? [Y/T]: ');
    Readln(ulang);
    end;
end.
=======================================
Berikut hasil outputnya :