Pascal
for ClaimNumber:=1 to NumClaims[Client] do
begin
Sum[Client]: Sum[Client] ClaimAmount[ClaimNumber
end
client 45 sum 3.4 5
Pascal
for ClaimNumber:=1 to NumClaims[Client] do
begin
Sum[Client]:=Sum[Client] ClaimAmount[ClaimNumber]
end
if(Client 45) then
Sum[45]:=Sum[45] 3.45
Client 37 NumClaims[Client] 0 0
Pascal ( )
for ClaimNumber:=1 to NumClaims[Client] do
begin
Sum[Client]:=Sum[Client] ClaimAmount[ClaimNumber]
end
if (Client=45) then
Sum[45]:=Sum[45] 3.45
else if [Client=37) and (NumClaims[Client]=0.0) then
Sum[37]:=0.0