Program Gaji

Program Gaji ;

uses wincrt;
var Nama,Nip : char ;
gaji_pokok,gaji_kotor,tunjangan,pajak,gaji_bersih :real;

begin
writeln (‘ Gaji Pegawai ‘) ;
write ( ‘ Nama : ‘ ) ; readln ( Nama ) ;
write ( ‘ Nip : ‘) ; readln (Nip) ;
write ( ‘ Gaji Pokok : ‘ ) ; readln ( gaji_pokok ) ;
write ( ‘ Tunjangan : ‘ ) ; readln ( tunjangan ) ;

writeln;

pajak := 0.1 * gaji_pokok ;
writeln ( ‘ Pajak : ‘ , pajak : 2 : 0 ) ;
gaji_kotor := gaji_pokok + tunjangan ;
writeln ( ‘ Gaji Kotor : ‘ , gaji_kotor: 2 : 0 ) ;
gaji_bersih := gaji_kotor + pajak ;
writeln ( ‘ Gaji Bersih: ‘ , gaji_bersih : 2 : 0 ) ;
readln ;
end.