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

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3. Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3. Поэтому алгоритм должен быть вроде :  1.создаем переменную для хранения суммы  2.3 раза читаем число, прибавляем его к общей сумме.  3.Выводим сумму / 3 ------------------------------------------------------------------------------------- Вот и сам код, думаю на Паскале сойдет: begin var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3 for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin var num: integer; //Создаем переменную для хранения текущего числа readln(num); //Считываем его mid := mid + num; //Присваиваем mid значение mid + num (текущее число) end; writeln(mid/3); //Выводим среднее end. Примеры: ------------------------------------- Ввод: 1,2,3 Вывод: 3 Ведь (1 + 2 + 3) / 3 = 3 ------------------------------------- Ввод: 5, 10, 20 Вывод: 11.(6) Ведь (5 + 10 + 20) / 3 = 11.(6) ------------------------------------ Ввод: 5, 5, 5 Вывод: 5 и так далее... ------------------------------------------------------------------- |Если не сложно нажми кнопку "Спасибо" ;)| -------------------------------------------------------------------