Program Hitung gaji karyawan

program penggajian;

uses crt;
var
status,gol:string;
anak:byte;
gj_pkk,pph1,ta,gaji:longint;
total:real;
begin
clrscr;
writeln('program hal 30 no 7');
write('Masukkan Golongan :');readln(gol);
write('Masukkan Status :');readln(status);
write('Masukkan Jumlah anak:');readln(anak);
begin
if gol='I' then
gj_pkk:=150000
else
if gol='II' then
gj_pkk:=200000
else
gj_pkk:=300000;
begin
if status='K0'then
pph1:=360000
else
if status='K1' then
pph1:=480000
else
if status='K2' then
pph1:=600000
else
if status='K3' then
pph1:=720000
else
pph1:=240000;
begin
if anak=1 then
ta:=10000
else
if anak=2 then
ta:=20000
else
if anak=3 then
ta:=30000
else
if anak>3 then
ta:=40000
else
ta:=0;

gaji:=ta + gj_pkk +pph1;
begin
if gaji>25000000 then
total:=gaji*0.35
else
if gaji<10000000 then
total:=gaji*(10/100)
else
total:=gaji*(25/100);

write('gaji yang diterima :',gaji-total:6:2);
end;
end;
end;
end;
readln;
end.