convert the code to scheme

Example of 'Sum and Average of array elements' 1. program project; 2. var 3. marks:array[0..4] of integer; 4. i,sum:integer; 5. average:real; 6. begin 7. writeln('Enter array elements:'); 8. for i=0 to 4 do 9. readin(marks[i]); 10. for i:=0 to 4 do 11. sum:=sum+marks[i]; 12. average:=sum/5; 13. writeln('sum is: ', sum); 14. writeln('average is: ', average); 15. end. Output