I will be very thankful for this assistance

P01 P02 P03 P04 P05 P06 P07 P08 P09 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 P20 FN FN-HEAD FN-BODY FN-HEAD TYPE id ( PARAM-LIST ) TYPE char TYPE int TYPE real PARAM-LIST TYPE id PARAM-LIST PARAM-LIST , TYPE id FN-BODY { VAR-DECL STIMT return ( EXPRESN ) ; } VAR-DECL VAR-DECL TYPE ID-LIST ; VAR-DECL VAR-DECL TYPE ID-LIST ; ID-LIST id ID-LIST ID-LIST . id STMT STMT SIMPLE-STMT STMT SELECT-STMT STMT REPEAT-STMT STMT SEQUENCE-STMT SIMPLE-STMT ASSIGN-STMT SIMPLE-STMT FN-CALL-STMT