Pascal--Menghitung Gaji dengan Case of...

Menghitung Gaji dengan case of.. sesuai dengan jani saya,, ini saya buatkan yg pake case of.... dan memisalkan ada 5 golongan,, yang mempunyai gaji masing2....
silahkan dipahami yaaa... jangan asal ngopi... buat referensi ja ni... eh iyaa.. ini juga pakai pengulangan repeat until juga lhoo...

program Hitung_gaji;

uses crt;

var nama : string;
gol : integer;
jam_kerja : longint;
gaji_tetap : real;
gaji_pokok : longint;
gaji_lembur : real;
gaji_total : real;
gaji_perjam : longint;
finish : char;
begin
repeat
clrscr;

write ('------------Penghitungan Gaji--------------');
writeln;
writeln;
write ('Masukkan Nama Anda :'); readln (nama);
writeln;
write ('Masukkan Golongan 1/2/3/4/5 :'); readln (gol);
writeln;
write ('Masukkan Jumlah Jam kerja :'); readln (jam_kerja);

case gol of
1: gaji_pokok := 500000 + (jam_kerja * 5000);
2: gaji_pokok := 300000 + (jam_kerja * 3000);
3: gaji_pokok := 250000 + (jam_kerja * 2500);
4: gaji_pokok := 100000 + (jam_kerja * 1500);
5: gaji_pokok := 50000 + (jam_kerja * 1000);
end;

case gol of
1: gaji_perjam := 5000;
2: gaji_perjam := 3000;
3: gaji_perjam := 2500;
4: gaji_perjam := 1500;
5: gaji_perjam := 1000;
end;
clrscr;

begin
if jam_kerja > 150 then
gaji_lembur := (jam_kerja-150) * 1.5 * gaji_perjam
else
if jam_kerja <= 150 then gaji_lembur := 0; end; gaji_total := gaji_pokok + gaji_lembur; writeln; writeln ('Gaji Pokok : Rp ',gaji_pokok); writeln ('Gaji Lembur : Rp ',gaji_lembur:2:0); writeln ('---------------------------------------------------- '); writeln ('Jumlah Gaji Total Anda : Rp ',gaji_total:2:0); writeln; write ('Ulang Kembali ?? [Y/T] : '); readln (finish); until upcase (finish) <> 'Y' ;

clrscr;
writeln ('------------------------------------------');
writeln ('------------------------------------------');
writeln ('Terima Kasih telah memakai layanan kami');
writeln;
writeln;
writeln (' PT Indonesia');
readln;
end.



okoeee.. tu mudahkan... selamat mencoba... moga berhasil.....!!