iwc ras, Pascal - rextester

iwc ras

//fpc 3.0.0

program HelloWorld;

var 
rV,rZ, ModelType : integer;
rI,rW,rX,rCJ,rCK,rCL,rCM,rCU,rCZ,rCW,rCY,rDG,rDH :string;
clI,clV,clW,clX,clZ,clDB,clDC,clDD,clDE,clDY :integer;

begin
ModelType := 2;
rI := 'Yes';//Attend appointments?
rV := 2;//Maintain home safe impact
rW := 'Yes';//Manage own paperwork?
rX := 'No';//Manage own finances?
rZ := 5;//Household shopping
rCJ := 'Yes';//Ongoing support - home clean & safe
rCK := 'No';//Ongoing support - household shopping
rCL := '';//Ongoing support - appointments
rCM := 'Yes';//Ongoing support - paperwork & finances
rCU := 'Yes';//Local services - eligible? - //TODO - Calculated?
rCY := 'Yes';//Habitable home - eligible? - //TODO - Calculated
rCZ := 'Yes';//Nutrition - eligible? - //TODO - Calculated?
rCW := 'Yes';//Work/Educ - eligible? - //TODO - Calculated?
rDG := 'Visual';//Primary support reason
rDH := 'Supp24h';//Ongoing living situation

{
clI
variables used:  , clI , ModelType , 2 , rCU , No" , 0 , rI , "" , 1 , "Yes" , "";
}
  if( (ModelType <= 2 )AND( rCU = "No") ) then clI := 0 else IF( rI = "" ) then clI := 0 else IF( rI = "No" ) then clI := 1 else IF( rI = "Yes" ) then clI := 0 then clI := "";
writeln(rI);
end.


run \| edit \| history \| help	0