Gaji Karyawan SC

program Menghitung_Gaji_Karyawan;
uses crt;

var
gapok, tanak , gatot: real;
 n, golongan, status: integer; nama , gol : string;

begin
writeln ('Menghitung Gaji Karyawan');
writeln ('========================');
writeln ('Golongan : 1. III 2. IV 3. V ');
writeln ('Status : 1. Menikah 2. Single ');
writeln ('========================');
write ('Masukkan Nama Karyawan : ');
read(nama); write ('Pilih Nomor Golongan : ');
read(golongan);
 if (golongan = 1) then
 begin gapok := 2000000; gol := 'III'; end
 else
 if (golongan = 2) then
 begin gapok := 3000000; gol := 'IV';
 end
 else
 if (golongan = 3) then
 begin gapok := 4000000; gol := 'V';
 end
 else
 writeln('Nomor Golongan Salah');
 write ('Pilih nomor Status : '); read(status);
 if (status = 1 ) then
 begin writeln ('Masukkan jumlah anak: '); read(n);
 if (n > 2 ) then tanak := 2 *(10/100 * gapok)
 else
 tanak := n *(10/100 * gapok);
 end
 else
 tanak := 0;
 writeln ('========================');
 writeln ('Nama Karyawan : ', nama);
 writeln ('Golongan : ', gol);
 writeln ('Gaji Pokok : ', gapok:0:2);
 writeln ('Tunjangan Anak: ', tanak:0:2);
 gatot := gapok + tanak;
 writeln ('Total gaji : ', gatot:0:2);
 readln;
 readln;
end.

program GAJIBERSIH;
uses crt;
var GP,GB, PJK, JS, TIS, TA, TJB : REAL;
NIK, NAMA, STATUS, JB : STRING;JA : INTEGER;
beginCLRSCR;
writeln ('SLIP GAJI PEGAWAI');
write ('NOMOR INDUK KARYAWAN:') ;
readln (NIK);
write ('NAMA KARYAWAN:') ;
readln (NAMA);
write ('STATUS:') ;
readln (STATUS);
write ('JUMLAH ANAK:') ;
readln (JA);
write ('GAJI POKOK:') ;
readln (GP);
if STATUS='MENIKAH'then
begin
TIS:=0.1*GP;
end
else
begin
TIS:=0;
end;
if JA <=3 then
begin
TA:=0.05*GP*JA;
end
else
begin
if JA >3 then
begin
TA:=0.05*GP*3
end
else
begin
TA:=0END;
if JB='MANAGER' then
begin
TJB:=2000000;
end
else
begin
if JB='SUPERVISOR' then
begin
TJB:=1500000;
end
else
begin
if JB='ADMINISTRASI' then
begin
TJB:=1000000;
end
else
begin
TJB:=750000
end;
PJK:=0.025*GP;
JS:=0.01*GP;
GB:=(GP+TIS+TA+TJB)-(PJK+JS);
WRITELN;
WRITELN ('TUNJANGAN ISTRI :',TIS);
WRITELN ('TUNJANGAN ANAK :',TA);
WRITELN ('TUNJANGAN JABATAN :',TJB);
WRITELN ('PAJAK :',PJK);