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

Var a[1..5]: array of integer; i: integer; s:real; begin s:=0; for i:=1 to 5 do begin readln(a[i]); s:=s+a[i]; end; s:=s/5; writeln(s); end.