Написать програму вычесляющую среднее фрифметическое 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и так |если не сложно нажми кнопку "" ; )|

Переменная х   будет принимать значение 17.