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

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];          // вычисляем сумму трех чисел      end; writeln(\'Среднее арифметическое введенных чисел равно: : \', z / 3); // выводим на экран строкуend.