Написать программу из 2 частей

Program gt; var i,s,l: integer; function IOI (a: integer): integer; beginif (a mod 2=1) then IOI: =1 else IOI: =0; end; begins: =1; l: =1; for i: =2 to 9 dobeginif (IOI (i)=1) then beginl: =l*i*(i-1); s: =s+l; end; end; writeln (s); end.