program Gaji_Tunjangan_dan_Pajak;
uses crt;
var
 nama,jab:string[20];
 noin:string[10];
 golgaj:char;stmerid,jmlanak:integer;
 gaj,tjistri,tjanak,pjgaj,jmltgaj,tolgaj,jmlpajgaj,tolgastpaj:real;
begin
 clrscr;
  writeln('=============================================');
  writeln('PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI');
  writeln('=============================================');
  writeln;
  writeln('Isikan Data anda sesuai ketentuan berikut ini:');
  writeln('----------------------------------------------');
  writeln;
   writeln('Golongan Gaji      :         Status Perkawinan  :');
   writeln('a. Rp.2.000.000.00           1.Kawin');
   writeln('b. Rp.2.500.000.00           2.Belum Kawin');
   writeln('c. Rp.3.000.000.00           3.Cerai');
   writeln;
   write('Masukkan No Karyawan       :');
   readln(noin);
   write('Masukkan nama Anda         :');
   readln(nama);
   write('Masukkan Jabatan           :');
   readln(jab);
   write('Masukkan Golongan gaji Anda:');
   readln(golgaj);
     case golgaj of
      'a' : begin
          gaj:=2000000;
          pjgaj:=(2/100);
          write('Status Perkawinan anda : ');
          readln(stmerid);
       case stmerid of
            1:begin
             tjistri:=(5/100)*gaj;
             write('Jumlah anak     :'); readln(jmlanak);
               if jmlanak <=3 then
               tjanak:=jmlanak*((2/100)*gaj)
               else
               tjanak:=3*((2/100)*gaj);
             end;
            2:begin
             tjistri:=0;
             tjanak:=0;
             end;
            3: begin
             tjistri:=0;
             write('Jumlah anak     :'); readln(jmlanak);
              if jmlanak <=3 then
              tjanak:=jmlanak*((2/100)*gaj)
              else
              tjanak:=3*((2/100)*gaj);
             end;
            else
            writeln;
            writeln('==========================================================');
            writeln;
       writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
            end;
          end;
       'b' : begin
          gaj:=2500000;
          pjgaj:=(2.5/100);
          write('Status Perkawinan anda : '); readln(stmerid);
          case stmerid of
            1:begin
             tjistri:=(5/100)*gaj;
             write('Jumlah anak     :'); readln(jmlanak);
               if jmlanak <=3 then
               tjanak:=jmlanak*((2/100)*gaj)
               else
               tjanak:=3*((2/100)*gaj);
             end;
            2:begin
             tjistri:=0;
             tjanak:=0;
             end;
            3: begin
             tjistri:=0;
             write('Jumlah anak     :'); readln(jmlanak);
              if jmlanak <=3 then
              tjanak:=jmlanak*((2/100)*gaj)
              else
              tjanak:=3*((2/100)*gaj);
             end;
          else
            writeln;
            writeln('==========================================================');
            writeln;
       writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
            end;
          end;
     'c' : begin
          gaj:=3000000;
          pjgaj:=(3/100);
          write('Status Perkawinan anda : '); readln(stmerid);
          case stmerid of
            1:begin
             tjistri:=(5/100)*gaj;
             write('Jumlah anak     :'); readln(jmlanak);
               if jmlanak <=3 then
               tjanak:=jmlanak*((2/100)*gaj)
               else
               tjanak:=3*((2/100)*gaj);
             end;
            2:begin
             tjistri:=0;
             tjanak:=0;
             end;
            3: begin
             tjistri:=0;
             write('Jumlah anak     :'); readln(jmlanak);
              if jmlanak <=3 then
              tjanak:=jmlanak*((2/100)*gaj)
              else
              tjanak:=3*((2/100)*gaj);
             end;
           else
            writeln;
            writeln('==========================================================');
            writeln;
       writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
            end;
          end;
     else
      writeln;
      writeln('======================================================');
      writeln;
      writeln('Maaf, Golongan Gaji tidak terdaftar !!!');
      writeln;
      end;
      jmltgaj :=tjistri+tjanak;
      tolgaj :=gaj+jmltgaj;
      jmlpajgaj:=tolgaj*pjgaj;
      tolgastpaj:=tolgaj-jmlpajgaj;
      writeln;
      writeln('Slip Gaji------------------------------------------>');
      writeln;
      writeln('Nama       :',nama);
      writeln('NoKaryawan :',noin);
      writeln('Jabatan    :',jab);
      writeln('|====================================|');
      writeln('| Rincian        | Jumlah            |');
      writeln('|===========================================|');
      writeln('|Besar gaji      |Rp.',gaj:8:0,'            |');
      writeln('|tunjangan istri |Rp.',tjistri:8:0,'        |');
      writeln('|Tunjangan Anak  |Rp.',tjanak:8:0,'         |');
      writeln('|total gaji      |Rp.',tolgaj:8:0,'         |');
      writeln('|pajak gaji      |Rp.',jmlpajgaj:8:0,'      |');
      writeln('||---------------------|--------------------|');
      writeln('Total gaji setelah pajak :| Rp.',tolgastpaj:8:0,'  |');
      writeln('|----------------|-------------------|');
      writeln('Program by, Yongky Gusta Indra');
      readln;

end.

selamat mencoba....

alfanie...