menghitung gaji karyawan dengan case pada turbo pascal

program gajicase;
uses crt;
var


a,b:longint;
tampil:char;
nama:string[50];
jamkerja1:longint;
jamkerja:longint;
golongan:char;
golongan1:longint;

begin
jamkerja1:=48;
tampil := 'y';

while (tampil = 'y') or (tampil = 'Y') do
begin
clrscr;
gotoxy(22,1);writeln('Program Gaji Karyawan by Nurul Hidayah');
gotoxy(22,2);writeln('===============================================');
gotoxy(30,3);write('* Masukan Nama Pegawai : ');Readln(nama);
gotoxy(23,4);write('* Masukan jam kerja selama satu minggu : ');Readln(jamkerja);
gotoxy(30,5);write('* Masukan golongan A,B,C,D ');readln(golongan);

gotoxy(25,6);writeln('----------------------------------');
case golongan of
'a','A':golongan1 :=4000;
'b','B':golongan1 :=5000;
'c','C':golongan1 :=6000;
'd','D':golongan1 :=7500;
 end;
 if jamkerja > jamkerja1 then
begin
gotoxy(25,7);writeln('Gaji Atas Nama : ',nama);
gotoxy(25,8);writeln('Gaji Lembur    : ',jamkerja-jamkerja1,' X 3000 = ',(jamkerja-jamkerja1)*3000);
gotoxy(25,9);writeln('Gaji Normal    : ',jamkerja1,' X ',golongan1,' = ',jamkerja1*golongan1);
gotoxy(25,10);writeln('-----------------------------------+');
gotoxy(25,11);writeln('Total Gaji per minggu      = ',(jamkerja-jamkerja1)*3000 + (jamkerja1*golongan1));
gotoxy(25,12);writeln('----------------------------------');
gotoxy(25,13);write('Kembali ke Menu Gaji (y/n)');readln(tampil);
end;
case golongan of
'a','A':golongan1 :=4000;
'b','B':golongan1 :=5000;
'c','C':golongan1 :=6000;
'd','D':golongan1 :=7500;
 end;

if jamkerja <= jamkerja1 then
begin
gotoxy(25,7);writeln('Gaji Atas Nama : ',nama);
gotoxy(25,8);writeln('Gaji Lembur    : ',jamkerja1-jamkerja1,'  X 3000 = ',(jamkerja1-jamkerja1)*3000);
gotoxy(25,9);writeln('Gaji Normal    : ',jamkerja,'  X ',golongan1,' = ',jamkerja*golongan1);
gotoxy(25,10);writeln('-----------------------------------+');
gotoxy(25,11);writeln('Total Gaji per minggu      = ',jamkerja*golongan1);
gotoxy(25,12);writeln('----------------------------------');
gotoxy(25,13);write('Kembali ke Menu Gaji (y/n)');readln(tampil);
end;
end;
end.