Найти среднее арифметическое элементов целочисленного массива ,кол-во элементов 8

Спасиюо

спасибо*

program sr;var a: array[1..8] of integer; i, s: integer; avg: real;begin s := 0; for i := 1 to 8 do begin write('a[', i, '] = '); readln(a[i]); s := s + a[i]; end; avg := s / 8; writeln('среднее: ', avg);end.