Написать програму вычесляющую среднее фрифметическое 3х чисел веденных с клавиатуры использууя

var
   arr : array [1..3] of integer; // объявляем массив для хранения чисел, введенных с клавиатуры
   i,z : integer; // объявляем целочисленные переменные
begin
   writeln(Введите 3 числа: ); // выводим строчку на экран
   for i := 1 to 3 do                  // начало цикла
     begin
        readln(arr[i]);        // при каждом проходе цикла считываем число, введенное с клавиатуры
        z:=z+arr[i];          // вычисляем сумму 3-х чисел
      end;
writeln(Среднее арифметическое введенных чисел одинаково: : , z / 3); // выводим на экран строку
end.