Помогите решить СРОЧНО) Составьте программу, которая заполняет массив а [1… 10]…

Решение на FPC IDE 2,6,0var a: array[1… 10] of integer; i,arf: integer; beginfor i: =1 to 10 dobegina[i]: =random (10); arf: =arf+i; end; arf: =round (arf/10); for i: =1 to 10 dowriteln ('a[',i,']=',a[i]); writeln ('Srednee arifmetichnoe=',arf); readln; end.