ввести с клавиатуры массив из 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 dobeginread(a[i]);s:=s+a[i];end;writeln('Среднее арифмитическое = ', s/5:3:1);readln;end.