Contoh program gaji pegawai sederhana dengan pascal

uses crt;
var n,s:string;
ja,g:byte;
ta,ts,gp,tg,gb:real;

begin
     clrscr;
     write('| Nama                   : ');readln(n);
     write('| Golongan               : ');readln(g);
     case g of
          1:begin
                 gp:=1000000;
            end;
          2:begin
                 gp:=1500000;
            end;
          3:begin
                 gp:=2000000;
            end;
          4:begin
                 gp:=2500000;
            end;
          5:begin
                 gp:=3000000;
            end;
     end;
     write('| Status                 : ');readln(s);
         if(s='belum menikah')then
         ts:=0
     else
         if(s='menikah')then
         ts:=gp*0.2
     else
         if(s='janda')or(s='duda') then begin
         ts:=gp*0.2;
end;
write('| Jumlah Anak            : ');readln(ja);
 if(ja=1) and (s='menikah') or (s='janda') or (s='duda')then
 ta:=gp*0.2
 else if(ja=2) and (s='menikah') or (s='janda') or (s='duda')then
 ta:=gp*0.6
 else if(ja=3) and (s='menikah') or (s='janda') or (s='duda')then
 ta:=gp*0.8
 else if(ja>3) and (s='menikah') or (s='janda') or (s='duda')then
 ta:=gp*0.1
 else if(ja=0)then begin
 ta:=0;
 end;
write('++++++++++++++>ENTER TO AMOUNT<++++++++++++++');
tg:=gp+ts+ta;
if (tg>5000000)then
gb:=tg-500000
else gb:=tg-0;
readln;
writeln('Gaji Pokok             : ','Rp.',gp:0:0);
writeln('Tunjangan status       : ','Rp.',ts:0:0);
writeln('Tunjangan anak         : ','Rp.',ta:0:0);
writeln('Gaji bersih            : ','Rp.',gb:0:0);
readln;
end.