Menghitung gaji karyawan (pascal)

Menghitung gaji karyawan (pascal)

program Menghitung_Gaji_Karyawan;
uses wincrt;

var
gapok, tunjangan , gatot,tis,ta,tjb,pjk,js,gb,kehadiran,lembur,sppd,b,f,g,z,d,x,c,a,l,m,n,v,jabatan,target: real;
  golongan, status: integer;
nama , gol : string;
                                 
begin
writeln ('Menghitung Gaji Karyawan');
writeln ('========================');
writeln ('Gaji Pokok : Isikan Sesuai Nominalyang tercantum ');
writeln ('S1 = Rp 2500000 ');
writeln ('S2 = Rp 3500000 ');
writeln ('S3 = Rp 4500000 ');                                
writeln ('==================================================');
writeln ('Target : Isikan No. saja!! ');
writeln ('1. Bila Mencapai Target ');
writeln ('0. Bila Anda Tidak Mencapai Target ');
writeln ('=================================================');
writeln ('Tunjangan : Isikan No saja!! ');
writeln ('1. Menikah ');
writeln ('0. Belum Menikah ');
writeln ('==================================================');
writeln ('Jabatan : Isikan No. saja!! ');
writeln ('1. Bila Anda Punya Jabatan ');
writeln ('0. Bila Anda Tidak Punya ');
writeln ('=================================================');
write ('Masukkan Nama Karyawan           : '); read(nama);
write ('Berapa Gaji Pokok Anda           : ');read(gapok);
write ('Berapa Hari Anda Masuk           : '); read(kehadiran);
write ('Berapa Jam Anda Lembur           : ');read(lembur);
write ('Berapa hari anda tugas luar kota : ');read(sppd);
write ('Apa Anda mencapai target         : ');read(target);
write ('Apa Anda memiliki tunjangan      : ');read(tunjangan);
write ('Apa Anda memiliki Jabatan        : ');read(jabatan);
z := (lembur*20000);
x := (kehadiran*25000)+(kehadiran*35000);
f:=  (kehadiran*25000);
g:= (kehadiran*35000);
c := (sppd*400000);
a := (target*500000);
b:= (tunjangan*500000);                                          
d:= (jabatan*500000);
v := gapok+z+x+c;
m := 0.03*v;
n := 0.025*v;
l:= v-m-n;

writeln('====================================================');
writeln('Jadi Rincian Gaji Anda Sebagai Berikut :  ');
writeln('Uang Makan (kehadiran) hari x 25000        = ', f:3:0);
writeln('Uang Transport (kehadiran) hari x 35000    = ', g:3:0);
writeln('Lembur                                     = ', z:3:0);
writeln('Insentive                                  = ', a:3:0);
writeln('SPPD                                       = ', c:3:0);
writeln('Jabatan                                    = ', d:3:0);
writeln('=====================================================');    
writeln('Total Gaji Kotor                      RP   = ', v:3:0);
writeln('Pajak 3 %                                  =', m:3:0);
writeln('Pajak 2.5 %                                =', n:3:0);
writeln('Total Gaji Bersih Yang Anda Terima     Rp  =  ', l:3:0);
 
    readkey;
    end.

Selamat Mencoba :-)