{JAMIAH}
USES WINCRT;
VAR
NAMAPEGAWAI :ARRAY[1..100] OF STRING[25];
GOLONGAN :ARRAY[1..100] OF STRING[1];
GAJIPOKOK :ARRAY[1..100] OF REAL;
TUNJAGAN :ARRAY[1..100] OF REAL;
PAJAK :ARRAY[1..100] OF REAL;
GAJIBERSIH :ARRAY[1..100] OF REAL;
BULAN :STRING;
I,JD :INTEGER;
BEGIN
WRITE('BULAN : ');READLN(BULAN);
WRITELN('BANYAK DATA YANG DIBUTUHKAN: ');READLN(JD);
FOR I := 1 TO JD DO
BEGIN
WRITELN('DATA KE:',I);
WRITELN('INPUTKAN NAMA KARYAWAN: ');READLN(NAMAPEGAWAI[I]);
WRITELN('INPUTKAN GOLONGAN :' );READLN(GOLONGAN[I]);
WRITELN('================================================');
if GOLONGAN[I]= 'A' then
begin
GAJIPOKOK[I] := 1000000;
PAJAK[I] :=0.1 * GAJIPOKOK[I];
GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
end
else if GOLONGAN[I]= 'B' then
begin
GAJIPOKOK[I] := 1500000;
PAJAK[I] :=0.15 * GAJIPOKOK[I];
GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
end
else
begin
GAJIPOKOK[I] := 2000000;
PAJAK[I] :=0.2 * GAJIPOKOK[I];
GAJIBERSIH[I] :=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
end;
END;
WRITELN(' LAPORAN DATA GAJI MAHASISWA ');
WRITELN('================================================================================');
WRITELN('NO NAMA GOLONGAN GAJI POKOK TUNJAGAN PAJAK GAJI BERSIH');
WRITELN('=======================================================================');
FOR I := 1 TO I DO
BEGIN
WRITELN(I:3,NAMAPEGAWAI[I]:10,GOLONGAN[I]:2,GAJIPOKOK[I]:10,TUNJAGAN[I]:12:0,PAJAK[I]:12:0,GAJIBERSIH[I]:12:0)
END;
WRITELN('=========================================================================');
END.
