tugas

program sturk_gaji_karyawan;uses wincrt;var nik,nama,jabatan,bagian:string; gapok,tunjangan : longint; pph,total,gaji_diterima:real;begin clrscr; writeln('struk gaji karwawan'); writeln('--------------------'); write('nik:');readln(nik); write('nama:');readln(nama); write('jabatan:');readln(jabatan); write('bagian:');readln(bagian); write('gapok:');readln(gapok); write('tunjangan:');readln(tunjangan); total:=gapok+tunjangan; pph:=gapok*0.10 ; writeln('pph;',pph:5:0); gaji_diterima:=total-pph; writeln('gaji_diterma:',gaji_diterima:4:2); readln; writeln(''); writeln('----------------'); writeln('nik :',nik); writeln('nama :',nama); writeln('jabatan :',jabatan); writeln('bagian :',bagian); writeln('gapok :',gapok); writeln('tunjangan :',tunjangan); writeln('total :',total); writeln('pph :',pph); writeln(',gaji_diterima;',gaji_diterima); end.