составить программу для нахождения среднего арифметического целых чисел от 15 до 25

program task;const n=10;var a:array[1..n] of integer;     i,s: integer;     arf:real;   beginfor i:= 1 to 10 do begin begin   a[i]:=15+random(26);  write(a[i]:4);  s:=a[i]+s; end;arf:=s/n;write('среднее арифметическое равно = ' arf);end;end.