LATIHAN E NO 4

Program HitungGajiKaryawan;
uses wincrt;
var
Nama,Jabatan,KJ:string;
GP,TM,TT     :longint;
Begin
 writeln('Masukkan Nama :');readln(Nama);
 writeln('Masukkan Kode Jabatan :');readln(KJ);
If (Kj='DR') or (kj='dr')then
 begin
  Jabatan:='Direktur';
  GP     :=3000000;
  TT     :=850000;
  TM     :=500000;
 end
else if (KJ='WD') or (Kj='wd') then
 begin
 Jabatan:='Wakil Direktur';
 GP     :=2500000;
 TT     :=800000;
 TM     :=500000;
 end
else if (KJ='MN') or (KJ='mn') then
 begin
 Jabatan:='Manajer';
 GP     :=2000000;
 TT     :=800000;
 TM     :=450000;
 end
else if (KJ='AS') or (KJ='as') then
 begin
 Jabatan:='Asisten';
 GP     :=1500000;
 TT     :=700000;
 TM     :=400000;
 end
else if (KJ='KW') or (KJ='kw') then
 begin
 Jabatan:='Karyawan';
 GP     :=1000000;
 TT     :=500000;
 TM     :=300000;
 end;
writeln('Jabatan             :',jabatan);
writeln('Gaji Pokok          :',GP);
writeln('Tunjangan Transport :',TT);
writeln('Tunjangan Makan     :',TM);
end.
 Hasilnya