Menghitung gaji karyawan

Program Menghitung_Gaji_Karyawan; Uses Wincrt; Var Nama_Karyawan:string; Gaji_Pokok:real; Jumlah_Anak:longint; Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real; Begin Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan); Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok); Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak); Tunjangan_Istri:=0.15*Gaji_Pokok; Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok; Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak; Pajak:=0.15*Gaji_Keseluruhan; Gaji_Akhir:=Gaji_Keseluruhan-Pajak; Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2); Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2); Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2); Writeln ('Pajak =Rp ',(Pajak):15:2); Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2); End.