menghitung gaji dengan if dalam turbo pascal

uses crt;
var
nama:string[60];
tampil:char;
jamkerja:longint;
jamnormal:longint;
golongan:char;
upahperjam:longint;
begin
jamnormal:=48;
tampil := 'y';

while (tampil = 'y') or (tampil = 'Y') do
begin
textcolor(7);
textbackground(1);

clrscr;
write('Program Gaji Karyawan by Nurul Hidayah');
writeln;
write('Masukan Nama Pegawai : ');readln (nama);
write('Masukan Jam Kerja selama satu minggu : ');readln (jamkerja);
write('Masukan Golongan A,B,C,D : ');readln (golongan);

if (golongan = 'A') or (golongan = 'a') then upahperjam := 4000
else if (golongan = 'B') or (golongan = 'b') then upahperjam :=5000
else if (golongan = 'C') or (golongan = 'c') then upahperjam :=6000
else if (golongan = 'D') or (golongan = 'd') then upahperjam :=7500;

     if jamkerja > jamnormal then
begin
writeln('Gaji atas Karyawan : ',nama);
writeln('Gaji Lembur        : ',jamkerja-jamnormal,' X 3000 = ',(jamkerja-jamnormal)*3000);
writeln('Gaji Normal        : ',jamnormal,' X ',upahperjam,' = ',jamnormal*upahperjam);
writeln('Total Gaji Karyawan per minggu = ',(jamkerja-jamnormal)*3000 + (jamnormal*upahperjam));
writeln('kembali ke menu gaji (y/n)');readln(tampil);
end;


if jamkerja <= jamnormal then

begin
writeln('Gaji atas Karyawan : ',nama);
writeln('Gaji Lembur        : ',jamnormal-jamnormal,' X 3000 = ',(jamnormal-jamnormal)*3000);
writeln('Gaji Normal        : ',jamkerja,' X ',upahperjam,' = ',jamkerja*upahperjam);
writeln('Total Gaji Karyawan per minggu = ',(jamkerja*upahperjam));
writeln('kembali ke menu gaji (y/n)');readln(tampil);
end;
end;
end.