Program Penghitung Gaji Dengan Pascal

Waduh hari gini masih harus di tuntut belajar bahasa Pascal..meski sudah terbilang kuno tetapi mungkin Pascal merupakan dasar bahasa Pemrograman.....Okey langsung aje.... hal ini bermula dari pengalaman pribadi yang di tugasi  dosen untuk membuat program penghitung gaji dengan pascal......ini dia langsung di simak aja....
For. Windows
program penghitung_gaji;
Uses wincrt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih,total:real;
Begin
Clrscr;
Write('Nama Karyawan : '); readln(nama);
Write('Masukkan Jabatan : '); readln(jabatan);
If (jabatan='Direktur') or (jabatan='direktur') then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
writeln('Jabatan Anda adalah ditektur ... Jadi...gaji anda adalah..=')
End
Else If (jabatan='Manager') or (jabatan='manager') then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
writeln('Jabatan Anda adalah manager ... Jadi...gaji anda adalah..=')
End
Else If (jabatan='Karyawan') or (jabatan='karyawan') then
Begin
Gaji:=1000000;
Tunj:=0.02* gaji;
writeln('Jabatan Anda adalah karyawan ... Jadi...gaji anda adalah..=')
End
Else
Begin
Gaji:=800000;
Tunj:=0.01* gaji;
writeln('Jabatan Anda adalah manager ... Jadi...gaji anda adalah..=')
End;
Writeln('Gaji Bersih : Rp.',gaji);
Writeln('Tunjangan Jabatan : Rp.',tunj:9:2);
Ppn:=0.1*gaji;
Writeln('PPN 10 % : Rp.',ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln('Total Gaji : Rp.',total:9:2);
Readln;
End.

oke semoga bermanfaat.