Gaji pokok

uses wincrt;
var nama:string;
gajipokok,tunjanganistri,jumlahanak,tunjangananak,gajitotal,pajak,gajiyangditerima:real;
begin
write('Nama : ');readln(nama);
write('Gaji Pokok : ');readln(gajipokok);
write('Jumlah Anak : ');readln(jumlahanak);
tunjanganistri:=15/100*gajipokok;
tunjangananak:=jumlahanak*20/100*gajipokok;
gajitotal:=gajipokok+tunjanganistri+tunjangananak;
pajak:=15/100*gajitotal;
gajiyangditerima:=gajitotal-pajak;
write('Gaji yang Diterima : ',gajiyangditerima:10:0);
end.