program gaji_pegawa

program gaji_pegawai;

Uses crt;

label adhy;

Var nama:string[20];

jabatan:string;

Gaji:longint;

total,Tunj,ppn,gajibersih:real;

Begin

Clrscr;

firman93:

Write('Nama Karyawan : '); readln(nama);

Write('Masukkan Jabatan : '); readln(jabatan);

If (jabatan='Direktur') or (jabatan='direktur') then

Begin

Gaji:=3000000;

Tunj:=0.1* gaji;

End

Else If (jabatan='Manager') or (jabatan='manager') then

Begin

Gaji:=2000000;

Tunj:=0.05* gaji;

End

Else If (jabatan='Karyawan') or (jabatan='karyawan') then

Begin

Gaji:=1000000;

Tunj:=0.2* gaji;

End

Else

Begin

Gaji:=800000;

Tunj:=0.1* gaji;

End;

Writeln('Gaji Bersih = Rp.',gaji);

Writeln('Tunjangan Jabatan : Rp.',tunj:9:2);

Ppn:=0.1*gaji;

Writeln('PPN 10 % = Rp.',ppn:9:2);

Total:=(gaji+total)-ppn;

Writeln('Total Gaji = Rp.',total:9:2);

writeln('Terimah kasih');

goto firman93;

Readln;

readln;

End.