Составить программу для нахождения среднего арифметического целых чисел от 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.