Задано 6 целых численных переменных. Получить среднее всех этих переменных. Найти…

На бейсике моем любимомDim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As IntegerDim a6 As Integer, Sred As Double, SumQuad As Double, RaznSqrt As DoublePrint «введите 1 число"; Input a1Print «введите 2 число"; Input a2Print «введите 3 число"; Input a3Print «введите 4 число"; Input a4Print «введите 5 число"; Input a5Print «введите 6 число"; Input a6Sred=(a1+a2+a3+a4+a5+a6) / 6Print «Среднее=", SredSumQuad=a1*a1+a2*a2+a3*a3+a4*a4+a5*a5+a6*a6Print «Сумма квадратов=", SumQuadRaznSqrt=Sqrt (a1) — Sqrt (a2) — Sqrt (a3) — Sqrt (a4) — Sqrt (a5) — Sqrt (a6) Print «Разность корней равна» , RaznSqrtEnd