Saling Berbagi

uses crt;
var
golongan : char;
nik,nm_karyawan,al_karyawan,tunjangan : string;
jker : integer;
uharian,ulembur : real;
begin
clrscr;
writeln('======================================');
writeln('                       UPAH KARYAWAN                            ');
writeln('======================================');
write(' NIK                  :');readln(nik);
write(' Nama Karyawan        :');readln(nm_karyawan);
write(' Alamat Karyawan      :');readln(al_karyawan);
write(' Golongan             :');readln(golongan);
case golongan of
'1' :uharian := 20000;
'2' :uharian := 15000;
'3' :uharian := 10000;
end;
writeln(' Uang Harian          :', uharian :0:0);
write(' Jam Kerja            :');readln(jker);
if jker > 8 then
case golongan of
'1' :ulembur := 10000;
'2' :ulembur := 7500;
'3' :ulembur := 5000;
end;
writeln(' Lembur               :', ulembur :0:0);
writeln(' Tunjangan Upah Total :', 0.15 * uharian :0:0);
writeln(' =====================================');
writeln('Tekan ==> ENTER <== Untuk EXIT !');
readln;
end.