program pascal menghitung gaji karyawan

Uses wincrt;
Var nama,no_induk:string;
jam_kerja,pajak,tabungan,jum_upah,jum_terima,u_jam:real;
Begin
Clrscr;
writeln('======================================');
writeln('----penghitungan gaji karyawan--------');
writeln('======================================');
writeln;
Write('Nama Karyawan : '); readln(nama);
write('no. induk : '); readln(no_induk);
Write('jumlah jam kerja : '); readln(jam_kerja);
writeln;
writeln('======================================');
writeln;
u_jam:=10000;
jum_upah:=jam_kerja*u_jam;
tabungan:=5/100*jum_upah;

if jum_upah>1000000 then
pajak:=5/100*jum_upah
else
pajak:=0;

Writeln('jumlah upah : Rp. ',jum_upah:9:0);
writeln('tabungan : Rp. ',tabungan:9:0);
if jum_upah>1000000 then
writeln('pajak : Rp. ',pajak:9:0)
else
writeln('pajak :Rp. ',pajak:9:0);

jum_terima:=jum_upah-tabungan-pajak;
writeln('======================================');
Writeln('jumlah diterima : Rp. ',jum_terima:9:2);
writeln('======================================');
writeln;
writeln;
writeln('nama karyawan bag. keuangan');
writeln;
writeln;
writeln;
writeln(nama,' Suryo Dinoto, SE');
End.