ini adalah Gaji

uses crt;
Var
        Golongan:Integer;
        JamKerja:real;
        Gaji:real;
BEGIN
        CLRSCR;
        WRITELN('Masukan Golongan: ');
        READLN(Golongan);
        WRITELN('Masukan Jumlah Jam Kerja: ');
        READLN(JamKerja);
        If (JamKerja <= 40) Then
        Case Golongan of
        1: gaji := jamKerja * 3000;
        2: Gaji := JamKerja * 3500;
        3: Gaji := Jamkerja * 4000;
        4: Gaji := JamKerja * 5000;
        end;
        If(Jamkerja>40) Then
        Case Golongan Of
        1: Gaji :=(40 *3000) + (40-JamKerja)*3000*1.5;
        2: Gaji :=(40*3500) + ((40-Jamkerja)*3500*1.5);
        3: Gaji :=(40*4000) + ((40-jamkerja)*4000*1.5);
        4: Gaji :=(40*5000) + ((40-jamkerja)*5000*1.5);
        END;
        WRITELN('Gaji Karyawan: ',Gaji);
        READLN();
ENd.