Program Menghitung Gaji Pegawai Pada Pascal

Soal
Buatlah program aplikasi untuk menampilkan hasil dan keluaran sebagai berikut:
- judul program data penggajian karyawan
- inputannya : 1. No induk karyawan
                       2. Nama
                       3. Golongan 
                       4. Jumlah jam kerja 
- Keterangannya : jam normal = 40 jam
                             upah lembur = 10.000 / jam 
                             gol A upah perjam = 6.500
                             gol B upah perjam = 7.500
                             gol C upah perjam = 8.500
Rumus hitung gaji ketentuannya :
jika jumlah jam kerja <= jam normal maka total upah = jumlah jam kerja x upah perjam
jika jumlah jam kerja >= jam normal maka total upah = ( jam normal x upah perjam ) + ( lembur x upah lembur ).
Tentukan total upahnya! 

Listing Program

program gaji;
uses crt;
var
 ul,jn,jjk,up,lembur,totup:longint;
 nik:char;
 gol,nama:string;
begin
clrscr;
jn:=40;
ul:=10000;
write('nomor induk karyawan : ');readln(nik);
write('masukkan nama : ');readln(nama);
write('masukkan golongan : ');readln(gol);
if gol= 'a' then
 up:=6500
else
if gol= 'b' then
 up:=7500
else
 up:=8500;
write('masukkan jumlah jam kerja : ');readln(jjk);
 if jjk<=40 then
  totup:=jjk*up
  else
  lembur:=jjk-jn;
   totup:=(jn*up)+(lembur*ul);
 writeln('Total upahnya : ',totup);
 readln;
end.


Output Program