Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива

var
i: integer;
a: array [1..5] of integer;
s: real;
begin
writeln('Введите 5 элементов массива через пробел:');
s:=0;
for i:=1 to 5 do begin read(a[i]); s:=s+a[i]; end;
s:=s/5;
write('Среднее арифметическое: ',s:0:15);
end.