else if ( Age = 1 8 ) then
Rate := 42.50
else if ( Age = 1 9 ) then
Rate := 45.00
...
else if ( Age > 6 5) then
Rate := 150.00
end
else begin { SmokingStatus = Smoking}
if ( Age < 1 8 ) then
Rate := 44.00
else if ( Age = 1 8 ) then
Rate := 47.00
else if ( Age = 1 9 ) then
Rate := 50.00
...
else if ( Age > 6 5 ) then
Rate := 200.00
end
else Marital Status = Married
...
end if Sex ...
, , 18 65
,
,
Pascal
type
Smoking_t = (Smoking Nonsmoking)
Sex_t = (Male Female)
Marital_t = (Single Married)
Age_t = 1 ..100
var
RateTable=array[Smoking_t Sex_t Marital_t Age_t]
Pascal smoking_t
, ,
,