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

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3.Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.Поэтому алгоритм должен быть вроде : 1.создаем переменную для хранения суммы 2.3 раза читаем число, прибавляем его к общей сумме. 3.Выводим сумму / 3-------------------------------------------------------------------------------------Вот и сам код, думаю на Паскале сойдет: beginvar mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbeginvar 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и так далее...-------------------------------------------------------------------|Если не сложно нажми кнопку "Спасибо" ;)|-------------------------------------------------------------------