Gaji Pegawai

Program Gaji;
uses crt;
var
nama,alamat : string;
gaji_pkok,tunjangan,pajak,bersih : real;
begin
clrscr;
write('Nama Pegawai : '); readln(nama);
write('Alamat : '); readln(alamat);

write('Gaji Pokok : ');readln(gaji_pkok);
tunjangan := 15/100*gaji_pkok;
pajak := 7.5/100*gaji_pkok;
bersih :=


Download source code lengkap nya di sini.