Jawaban Kuis Online

Uses CRT;
Var
    Na :byte;
    Nh :char;
Begin
    clrscr;
    Writeln ('Penggajian Karyawan');
    Writeln ('------------------------');
    Write   ('Inputkan Jabatan Karyawan :');Readln(na);
    case na of
        jabatan Mandor :Nh:='1750000';
        jabatan Kepala Bagian :Nh:='2500000';
        jabatan Staf :Nh:='1250000';
    Write('Tunjangan Untuk Istri:');Readln(na);
        tunjangan :Nh:='9% dari gaji';
    Write('Inputkan Jumlah Anak:');Readln(na);
        jika 1 anak :Nh:='3% dari gaji';
        jika 2 anak :Nh:='7% dari gaji';
    Write('inputkan pajak:');Readln(na);
        di kenakan pajak :Nh:='1,5% dari gaji';
    Write(;inputkan lembur perjam:');Readln(na);
        jabatan staf :Nh:='5000 perjam';
        jabatan mandor :Nh:='7500 perjam';
        jabatan kepala bagian :=Nh:='10000 perjam';
    End;
    Writeln('Nilai gaji setiap karyawan :',Nh);
    Readln;
End;