Program Gaji Bersih #pascal

ngoprek2 lagi ya gan ,  masi terus ngasah algoritma nih .. masi pake pascal  , hhee..

Soal
Tulislah Algoritma yang membaca nama karyawan dan gaji pokok bulanannya dan menghitung gaji bersih tersebut. Gaji bersih yang diterima pegawai adalah : gaji bersih = gaji pokok + tunjangan - pajak Tunjangan karyawan dihitung 20% dari gaji pokok , sedangkan  pajak adalah 15% dari gaji pokok ditambah tunjangan .
Nama Karyawan dan gaji bersihnya dicetak ke piranti keluaran.(sumber : Buku Algoritma & Pemrograman dalam bahasa Pascal dan C - Rinaldi Munir )

 
Jawab
=================================================
Program Hitung_Gaji_Bersih;
uses wincrt;
var

   nama_karyawan : string [35];
   gajipokok,tunjangan,pajak,gajibersih: real ;

const persen_tunjangan :  real = 0.2 ;
      persen_pajak :  real = 0.15  ;

begin                                 
     write('masukan nama karyawan='); readln(nama_karyawan);
     write('masukan gaji pokok='); readln(gajipokok);
     tunjangan := persen_tunjangan*gajipokok;
     pajak := persen_pajak*(gajipokok+tunjangan);
     gajibersih:= gajipokok+tunjangan - pajak;
     write('gaji bersih ',nama_karyawan, '  adalah = ',gajibersih:9:2);

end.
=================================================


Akhirnya ketemu tadinya da yg gak sesuai kalo dihitung manual , ternyata ada kesalahan manggil script gan , mklum masi bljr ...