Contoh Program Gaji Karyawan Sederhana

Program Gaji_karyawan;
Uses Crt;
Var
   NIK:Array[1..20] of string[15];
   Nama:Array[1..20] of string[25];
   Status:Array[1..20] of char;
   Banyak,i,jk:integer;
   Tjg,Pjk,Gaber,Gapok:real;

Begin
   Clrscr;
   Write('Isi Berapa Data Pegawai Yang Diperlukan  =');readln(banyak);
   For i:=1to banyak Do
Begin
   Write('NIK       =  ');readln(NIK[i]);
   Write('Nama      =  ');readln(Nama[i]);
   Write('Status    =  ');readln(Status[i]);
   Write('Gaji Pokok=  ');readln(Gapok);
   writeln('=============================');
   end;
   Tjg:=0.1*Gapok;
   Pjk:=0.3*Gapok;
   Gaber:=(Gapok+Tjg)-Pjk;
   For i:= 1 to banyak do
Begin
    Writeln('============================');
    Writeln('Nama Karyawan=  ',Nama[i]);
    Writeln('Tunjangan Jabatan=',Tjg:0:2);
    end;
    readln;
end.