Belajar Algoritma Dasar

Berikut adalah cara membuat algoritma tentang cara penghitungan gaji pegawai :
 
Program Perincian_gaji;
Uses crt;
Var Nama,Jabatan:string[20];
    Gaji_pokok:longint;
    Tunjangan,Pajak,total:real;
begin
Clrscr;
Writeln('%%%%%%%%technologic-b.blogspot.com%%%%%%%');
Writeln('----------------------------------------------------------------------');
Writeln('********GAJI KARYAWAN PT.ALGORITMA********');
Writeln('-----------------------------------------------------------------------');
Writeln('%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
Write('NAMA ANDA          :');readln(Nama);
Write('JABATAN            :');readln(Jabatan);
if(Jabatan='direktur')or(Jabatan='Direktur')then
begin
Gaji_pokok:=3000000;
Tunjangan:=0.1*Gaji_pokok;
end
else if(Jabatan='Manager')or(Jabatan='manager')then
begin
Gaji_pokok:=2000000;
Tunjangan:=0.05*Gaji_pokok;

end
else if(Jabatan='Karyawan')or(Jabatan='karyawan')then
begin
Gaji_pokok:=1000000;
Tunjangan:=0.02*Gaji_pokok;
end
else if(Jabatan='OB')or(Jabatan='officeboy')then
begin
Gaji_pokok:=800000;
Tunjangan:=0.01*Gaji_pokok;
end;
Writeln('------------------------------------------');
Writeln('              PERINCIAN GAJI           ');
Writeln('------------------------------------------');
Writeln('');
Writeln('Gaji Pokok   : Rp.',Gaji_pokok);
Writeln('------------------------------------------');
Writeln('');
Writeln('Tunjangan    : Rp.',Tunjangan:9:2);
Pajak:=Gaji_pokok*0.1;
Writeln('Pajak        : Rp.',Pajak:9:2);
Writeln('------------------------------------------');
Total:=(Gaji_pokok+tunjangan)-pajak;
Writeln('Total gaji   : Rp.',Total:9:2);
Writeln('');
Writeln('------------------------------------------');
Writeln('        -Mari Belajar Algoritma-        ');
Writeln('------------------------------------------');
Writeln('               Copyright@                     ');
Writeln('    technologic-b.blogspot.com       ');
Writeln('------------------------------------------');
Readln;
End.