4. Gaji Karyawan

Program case_of;
Uses crt;
var
jjk,gol:integer;
upah,uj,ul:longint;
begin
clrscr;
{proses input}
write('Masukkan golongan karyawan: ');
readln(gol);
Write('Masukkan jumlah jam kerja: ');
readln(jjk);
{Proses perhitungan}
case gol of
1:    begin
      uj:=2000;
      ul:=3000;
      if jjk<=40 then
         upah:=uj*jjk
      else
         upah:=(uj*40)+ul*(jjk-40);
      writeln('Upah: ',upah);
      end;
2:    begin
      uj:=2500;
      ul:=4000;
      If jjk<=40 then
         upah:=uj*jjk
      else
          upah:=(uj*40)+ul*(jjk-40);
      writeln('Upah: ',upah);
      end;
3:    begin
      uj:=3500;
      ul:=5000;
      if jjk<=40 then
         upah:=uj*jjk
      else
         upah:=(uj*40)+ul*(jjk-40);
      Writeln('Upah: ',upah);
      end;
4:    begin
      uj:=5000;
      ul:=7000;
      if jjk<=40 then
         upah:=ul*jjk
      else
          upah:=(uj*40)+ul*(jjk-40);
      writeln('Upah: ',upah);
      end;
5:    begin
      uj:=7500;
      ul:=9000;
      if jjk<40 then
         upah:=ul*jjk
      else
          upah:=(uj*40)+ul*(jjk-40);
      writeln('Upah: ',upah);
      end;end;
readln;
end.