Составить программу нахождения среднего арифметического пяти введенных чисел.

const n = 5;var

a : array [1..n] of integer; i : byte; b, sum : integer;begin for i := 1 to n do begin write ( \'Введите \', i ,\'-е число: \' ); readln ( b ); a[i] := b; sum := sum + a[i]; end; writeln ( \'Среднее арифметическое указанных \', n ,\' чисел равно \', sum / n, \'.\' ); readln;end.