uses crt;
var
ul,jn,jjk,up,lembur,totup:longint;
nik:char;
gol,nama:string;
begin
clrscr;
jn:=40;
ul:=10000;
write('nomor induk karyawan:');readln(nik);
write('masukkan nama:');readln(nama);
write('masukkan golongan:');readln(gol);

if gol='a' then
up:=1500000
else
if gol='b'then
up:=2500000
else
up:=3500000;
write('Masukkan Jumlah Jam Kerja:');readln(jjk);
if jjk<=40 then
totup:=jjk*up
else
lembur:=jjk-jn;
totup:=(jn*up)+(lembur*ul);
writeln('Total Upahnya:',totup);
readln;
end.

Nama Aulia
NPM 12110112