составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива

Vara: array [1..10] of Word;i:word;sa:real;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10)+1;write(a[i]);if i<>10 then write(', ');end;writeln;sa:=0;for i:=1 to 10 dosa:=sa+a[i];sa:=sa/10;writeln('Sredneearifmitichiskoe: ',sa:0:3);write('Dly vyhoda nagmite Enter');readln;end.