Найдите среднее арифметическое суммы из 8 введенных с клавиатуры

var i,s,a: integer;

begin

for i:=1 to 8 do

begin

readln (a);

s:=s+a

end;

writeln;

writeln ('Среднее арифметическое: ',s/8)

end.