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

Uses crt;
const n=5;
var a: array[1..n] of integer;
 i , s: integer;
begin  clrscr;
s:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
writeln('Среднее арифмитическое = ', s/5:3:1);
readln;
end.