Pascal
Statement1 1
Statement2
if X 10 then if 2
begin
Statement3
End 1
Statement4
1 if 2 2
if X 10 )
if X 10Pascal
1 { Compute Net Pay} 1
2
3 TtlWithholdings : 0
4
5 for ID : 1 to NumEInPloyees for 2
6 begin
7
8 { compute social security withholding, if below the maximum }
9 if Employee ID .SSWithheld MAX_SOCIAL_SECURITY then if 3
10 begin
11 SocialSecurity : ComputeSocialSecurity Employee ID
12 end
13
14 set default to no retirement contribution
15 Retirement : 0
16
17 {determine discretionary employee retirement contribution}
18 if Employee ID .WantsRetirement and if 4 and 5
19 (EligibleFotRetirement( Employee[ID] then
20 begin
21 Retirement : GetRetirement Employee[ID]
22 end
23
24 GrossPay : ComputeGrossPay Employee[ID]