Program pascal Menghitung Gaji karyawan

uses crt;
var gaji_pokok, gaji_bersih, uang_lembur, jam_kerja : longint;
golongan : byte; begin clrscr;
write('Masukan Golongan = ');
readln(golongan);
write('Masukan Jam Kerja = ');
readln(jam_kerja);
  if (golongan=1) then gaji_pokok := 1500000;
if (golongan=2) then gaji_pokok := 2000000;
if (golongan=3) then gaji_pokok := 2500000;   if (jam_kerja > 50) then uang_lembur := (jam_kerja-50) * 10000;
gaji_bersih := gaji_pokok + uang_lembur; writeln;
writeln('Gaji Bersih = ', gaji_bersih);
readln;
End.