Program: Dizel_Calculate_Salary;
{my name is leon porter, I attend the charlemont high and I am from Jamaica and the
purpose of this program is to calculate salary}
Var {is to declare variable either as integer, string, real, real etc.}
Pay, GrossInc, Bwage,Totalsales, Totallow, TotalDed, NHT,EduTax, TRAllow, Perloan,
Net Inc,SaleCom,count, HINS,Inv
DAllow: array [1�30] of real
firstName,Lastname, IdNo, Catcode: array [1..30] of string
P, T, R, S MNZAXYB: integer;
Begin
For P:= 1 to 30 do
Begin
PAYE[P] := 0;
NHT[P] :=0;
GInc [P] := 0;
Bwage[P] := 0;
HNT [P] := 0;
Inv [P] := 0;
NetInc [P] := 0;
SaleCom [P] := 0;
SaleCom Count [P] := 0;
TotDEd [P] := 0;
Perloan [P] := 0;
EntAllow [P] := 0;
Trallow [P] := 0;
EDuTax [P] := 0;
DAllow [P] := 0;
Totalsale [P] := 0;
Totallow [P] := 0;
End;
P: 0;
T: 0;
R: 0;
S: 0;
M: 0;
N: 0;
Z: 0;
A: 0;
X: 0;
Y: 0;
B: 0;
For T:= 1 to 30 do
Begin
If catcode [T]:= �MN� then
begin
Trallow [T] := Bwage [T]*0.07;
nTallow [T] := Bwage [T]*0.045;
PerLoan [T] := Bwage [T]*0.08;
End
If catcode [T] := �AM� then
Begin
TrAllow [T] := Bwage [T]*0.07;
Fnallow [T] := Bwage [T]*0.045;
PerLoan [T] := Bwage [T]*0.08;
End
If ToTsale [T] >50000 then
Begin
SaleCom [T] : = 0.045*ToTSale [T] ;
SaleCom_count: = Salecom-count + ;
End
End;
For R := 1 to 30 do
Begin
PAYE [R] := Bwage [R]*0.045;
Inv [R] := Bwage [R]*0.03;
DAllow [R] := Bwage [R]*0.20;
HINS[R] := Bwage [R]*0.02;
EduTax [R] := Bwage [R]*0.03;
NHT [R] := Bwage [R]*0.12;
End;
For M := 1 to 30 do
Begin
TotDed [M] := PerLoan[M]+Inv[M]+HINs[M]+PAYE [M]+EduTax[M]+NHT[m];
Tallow[M]:= DAllow [M]+EAllow[M]+Tallow[M]+ Salecom [M];
Gins [M] := Bwage [M]+Tallow [M];
NInc [M] := GInc [M] � ToTDed [M];
End;
For Z:= 1 to 30 do
Begin
Writeln(�Last Name is�, Lastname [Z]);
Writeln(�First Name is�, firstname [Z]);
Writeln(�Idno is�,Idno [Z]);
Writeln(�SaleCom is�,SaleCom [Z]);
Writeln(�SaleCom-Count is�, SaleCom-Count[Z]);
Writeln(�Catcode is�, Catcode [Z]);
Writeln(�EduTax is�,EduTax [Z]);
Writeln(� Net Income is�, Net Income [Z]);
Writeln(� TotAllow is�, TotAllow [Z]);
Writeln(� NHT is�, NHT [Z]);
End ;