Составить программку, которая вводит с клавиатуры массив из 5 элементов, и

program zz1;
var i, k:integer; // задаем переменные целого типа
m:array [1..5] of integer;
begin
for i:=1 to 5 do // записываем в массив 5 чисел с клавиатуры
read(m[i]);
for i:=1 to 5 do // организуем цикл, в котором переберем все элементы массива
k:=m[i] + k; // прибавляем к сумме элемент из массива
writeln( среднее арифметическое элементов массива = , k / 5); // выводим ответ
end.