Contoh Program Gaji Karyawan

Program DataGajiPegawai_Array;
Uses crt;
Var
Data : Array [1..100] of string;
Nama : array [1..10] of string[20];
Gaji : array [1..100] of string[30];
Jamkerja: array [1..100] of string[30];
Pajak: array [1..100] of string[30];
Gapok : Real;
Gaber : Real;

i,n : Integer;
Begin
Clrscr;
Write('Masukkan Jumlah Data Pegawai : ');Readln(n);
For i := 1 to n do
Begin
Clrscr;
Writeln('Entry Data Pegawai');
Writeln('==========================');
Writeln;
pajak:=
Writeln('Data Ke-',i);
Writeln;
Write('Nama : ');Readln(Nama[i]);
Write('Gaji: ');Readln(Gaji[i]);
Write('Jam Kerja : ');Readln(Jamkerja[i]);
Write('Pajak : ');Readln(Pajak[i]);
Writeln;
End;
Clrscr;
Writeln('Laporan Gaji Pegawai');
Writeln('');
Writeln;
writeln('perusahaan ANGGA EDO');
WRITELN;
Writeln('===============================================================================');
Writeln('|NO. | Nama                    | Gapok    | Jam Ker  | Pajak    |Gaji        | ');
Writeln('===============================================================================');
For i := 1 to n do
Begin
Writeln('|',i:4,'|',Nama[i]:25,'|',Gaji[i]:10,'|',Jamkerja[i]:10,'|',Pajak[i]:10,'|',Gaber:13:0,'|');
End;
Writeln('===============================================================================');
readln;
End.