program tunjangankerja1;uses wincrt;var NIK,Nama: string; golongan,mk: integer; tk: real;beginclrscr; write('NIK=');readln(NIK); write('Nama=');readln(Nama); write('golongan=');readln(golongan); write('mk=');readln(mk);If (golongan = 1)and (mk<=2)thenwriteln ('tk = 200000')else if (golongan = 1)and (mk>2)thenwriteln ('tk = 350000')else if (golongan = 2)and (mk<=4)thenwriteln ('tk = 500000')else if (golongan =2)and (mk>4)thenwriteln ('tk = 750000')elseWriteln('golongan yang diinput...
